Дано целое число а и целое число N (N>0) Используя цикл, вывести все степени числа А от 1 до N

Question

Информатика

Ефремий

1 мая, 15:08

Дано целое число а и целое число N (N>0) Используя цикл, вывести все степени числа А от 1 до N

+3

Ответы (1)

Знаешь ответ?

Сильвия · Answer 1

program for16; var A, Pow: real; N, i: integer; begin write ('Введите A и N: '); read (A, N); Pow : = 1; for i : = 1 to N do begin Pow : = Pow * A; / / Умножаем предыдущую число на А writeln (A, ' в ', i, ' степени равно ', Pow); end; end.