Дано вещественное число А и целое число N>0. Вывести все целые степени числа A от 1 до N.

Question

Соломонида

22 января, 22:48

+2

Ответы (2)

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

Ионична · Answer 1

var n, i:integer;

a, s:real;

Begin

s:=1;

for i: = 1 to n do Begin

s:=s*a;

writeln (s) ;

end;

End.

Тарасыч · Answer 2

1) st : = 1; 2) for i : = 1 to n do 3) begin 4) st : = st * a; 5) writeln (st) 6) end