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

Question

Катерина

23 мая, 21:35

+3

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