Дано целое число а и натуральное число n. Найдите a^n. Программу напишите в Паскале через while или repeat.

Question

Информатика

Витяня

22 февраля, 07:48

Дано целое число а и натуральное число n. Найдите a^n. Программу напишите в Паскале через while или repeat.

+5

Ответы (1)

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

Епистимия · Answer 1

Program Program1;

var a, n, i, result: integer;

begin

result : = 1;

write ('Введите значение A: ') ;

readln (a) ;

write ('Введите значение N: ') ;

readln (n) ;

while (n > i) do

begin

result : = result * a;

i : = i + 1;

end;

writeln ('Ответ: ', result) ;

end.