Тема: Піднесення до степеня
умова:
вхід - два цілих числа а і б(ціле невід'ємне)
вихід - єдине число а в степені б
мій код:
var i,a,c,b:integer;
BEGIN
read(a);
read(b);
c:=a;
if b>1 then for i:=1 to b-1 do c:=c*a;
if b=0 then c:=1;
if b=1 then c:=a;
if (b=0) and (a=0) then c:=0; writeln(c);
END.
тесетр видає 3/5 правильні відповіді. Порадьте, що додати
Cyan: код слід брати в теги [ code]