Тема: Піднесення до степеня
умова:
вхід - два цілих числа а і б(ціле невід'ємне)
вихід - єдине число а в степені б
мій код:
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]