Напишите программу которая вводит натуральные числа a и n и вычисляет a^n без использования операции возведения в степень.

Question

Патрикий

19 мая, 22:45

+2

Ответы (1)

Знаете ответ на вопрос?

Вероня · Answer 1

Var a, n, i: integer;

r: longint;

begin

r : = 1;

readln (a, n) ;

for i : = 1 to n do

r : = r * a;

write (r) ;

end.