Parašė iMantux· 2010 Rugs. 20 19:09:33
#102
papraščiausias variantas pakelt 9 laipsniu yra:
program laipsniai;
var a:integer;
begin
Write('Įrašykite skaičių: ');
Readln(a);
WriteLn('Pakėlus 9 laipsniu bus ',a*a*a*a*a*a*a*a*a);
ReadLn;
end.
tik pačią salyga t.y a*a*a... susitrumpink, dabar tingiu galvot. nes taip tikrai bus negerai, kas kad atsakymas teisingas :)