Question

Дано целое число X и натуральное N. Составьте алгоритм вычисления Xn. Проверьте алгоритм трассировкой. Напишите программу на Паскале.

Answer 1

var   X, N, i, result: integer; begin   readln(X, N);   result := 1;   for i := 1 to N do   begin     result := result * X;   end;   writeln(result); end.