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

Question

Информатика

Михайла

20 декабря, 07: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.