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

Question

Парамон

21 апреля, 19:18

+4

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