Question

Составить программу на языке Паскаль Ввести с клавиатуры вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.

Answer 1

Var a,an:real; n,i:integer;
begin
readln(a,n);
an:=1;
for i:=1 to n do
 begin
 an:=an*a;
 writeln(a:3:2,'^',i,' = ',an:6:3);
 end;
end.

Пример:
2.0 5
2.00^1 = 2.000
2.00^2 = 4.000
2.00^3 = 8.000
2.00^4 = 16.000
2.00^5 = 32.000

Answer 2

Var
    a: real; 
    n: integer;
begin
    read(a, n);
    for var k := 1 to n do
    begin
        write(power(a, k), ' ');
    end;
end.