Parašė s1Nk· 2010 Rugs. 20 18:09:48
#95
Pasakykit kaip pakelt 9-tuoju laipsniu. Informatikos mokytojas sakė nereik jokiu for ir pnš. Pats uždavinys sakė susideda iš triju daugybos veiksmų.
Čia kaip aš isivaizduoju ta programa, bent kaškaus panašaus.
program Bevardė6;
var a,b,c:longint;
begin
WriteLn('Iveskite a:');
Read(a);
WriteLn('Iveskite b:');
Read(b);
WriteLn(a*a, b*b, c*c);
b:=a*a;
c:=b*b;
Readln;
end.