Дано целое число x и натуральное n. Составьте алгоритм вычисления x в n степени. Проверте алгоритм трассировкой. Напишите программу на паскале
Только через while d
Самую простую программу, сложную не принимают

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program PowerCalculation
va
x, n, result, i: integer
begi
writeln('Введите целое число x:')
readln(x)
writeln('Введите натуральное число n:')
readln(n)
result := 1
i := 1
while i <= n d
begi
result := result * x
i := i + 1
end
writeln(x, ' в степени ', n, ' равно ', result)
end.

Пример трассировки для x = 2 и n = 3:

result = 1, i = 1result = 1 * 2 = 2, i = 2result = 2 * 2 = 4, i = 3result = 4 * 2 = 8Вывод: 2 в степени 3 равно 8.