Составьте ** паскале программу возведения в N-ую степень целого числа X.

Question

Составьте на паскале программу возведения в N-ую степень целого числа X.

Answer 1

Var
  x,y,n,i:integer;
begin
write('Введите X,N: ');
readln(x,n);
y:=1;
for i:=1 to n do y:=y*x;
writeln('X^N=',y);
end.

Comments

чем является у?i?

---

x,y,n,i - это целые числа