2. Напечатать степени An, где A вводится пользователем, а n изменяется от 1 до 10....

Question

2. Напечатать степени An, где A вводится пользователем, а n изменяется от 1 до 10.

Например, А=5

5 в 1 степени=5

5 во 2 степени=25

5 в 3 степени=125

Answer 1

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadInteger('A=');
  var b:=BigInteger(a);
  for var i:=1 to 10 do begin
    Writeln(a,' в степени ',i:2,'=',b);
    b*=a
    end;
end.

Примеры

A= 5
5 в степени  1=5
5 в степени  2=25
5 в степени  3=125
5 в степени  4=625
5 в степени  5=3125
5 в степени  6=15625
5 в степени  7=78125
5 в степени  8=390625
5 в степени  9=1953125
5 в степени 10=9765625

A= 3419
3419 в степени  1=3419
3419 в степени  2=11689561
3419 в степени  3=39966609059
3419 в степени  4=136645836372721
3419 в степени  5=467192114558333099
3419 в степени  6=1597329839674940865481
3419 в степени  7=5461270721848622819079539
3419 в степени  8=18672084598000441418432943841
3419 в степени  9=63839857240563509209622234992379
3419 в степени 10=218268471905486637987698421438943801