Question

Дано целое число Х и натуральное N. Составьте алгоритм вычисления Х^N. Напишите программу на Паскале. Нужно использовать while  do.

Answer 1

var x,n,i,t,k:integer;
begin
read(x,n);
t:=0;
k:=1;
while t<n do
begin
k:=k*x;
inc(t); //t:=t+1
end;
end.


Вроде так.