Pascal / Ученик написал программу возводящую число в натуральную степень, но допустил ошибки, исправьте их и поясните. Ученик написал программу возводящую число в натуральную степень, но допустил ошибки, исправьте их и поясните. Program 1; var n, m, p : real; begin read(n,m) for i:=0 to n do p:=m*p; write(p) end
Program p1;
var n,i : integer; m,p : real;
begin
readln(m,n);
p:=1;
for i:=1 to n do p:=m*p;
write(p);
end.