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