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

Question

Информатика

Артя

5 мая, 15:19

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

+1

Ответы (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.