Дано целое число X и натуральное N. Составьте алгоритм вычисления X^N
Дано целое число X и натуральное N. Составьте алгоритм вычисления X^N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.
алг СУММА
цел X, N, R, Z
нач
вывод «Введите X:»
ввод X
вывод «Введите N:»
ввод N
R:=1
Z:=1
пока R <= N повторять
нц
Z:=Z*X
R:=R+1
кц
вывод Z
кон
Program zad_8_nica;
var X, N, R, Z: integer;
begin
write ('Введите X: ');
read (X);
write ('Введите N: ');
read (N);
R:=1;
Z:=1;
while (R <= N)
do begin
Z:=Z*X;
R:=R+1;
end;
writeln ('X^N = ', Z)
end.