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.