Question

Дано вещественное число A и целое число N

Answer 1

Ответ:

1  var

2  a, an, n, i: integer;

3  

4  begin

5  readln(a, n);

6  an := 1;

7  for i := 1 to n do

8  begin

9  an := an * a;

10  writeln(i, ' ', an)

11  end

12  end.

Объяснение: