program PowerCalculation va X, N, Result, i: Integer begi writeln('Enter X:') readln(X) writeln('Enter N:') readln(N) Result := 1 for i := 1 to N d begi Result := Result * X end writeln(X, ' raised to the power of ', N, ' is equal to ', Result) end.
Программа запрашивает у пользователя значения X и N, после чего вычисляет X в степени N с помощью цикла и выводит результат на экран.
va
X, N, Result, i: Integer
begi
writeln('Enter X:')
readln(X)
writeln('Enter N:')
readln(N)
Result := 1
for i := 1 to N d
begi
Result := Result * X
end
writeln(X, ' raised to the power of ', N, ' is equal to ', Result)
end.
Программа запрашивает у пользователя значения X и N, после чего вычисляет X в степени N с помощью цикла и выводит результат на экран.