Question

Дано целое число Х и натуральное N. Составить алгоритм вычисления значения Х в степени N. Выполнить трассировку, при Х=2, N=3 

Answer 1

var X,N, i:integer;
S:real;
begin 
write('Введите число X: ');
 readln(X);
 write('Введите степень N: ');
 readln(N);
 S:= 1;
 for i:=1 to N do 
S:= S*X; 
writeln('Ответ: ', S:0:0);
end.