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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.