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

Question

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

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:=1to n do 3)begin 4)st:=st*a; 5)writeln(st) 6)end