Question

Напишите пожалуйста код на первое и последнее
срочноооооооо

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ReadReal('Основание a =');
  var n:=ReadInteger('Показатель стпепени n =');
  Writeln('Степень равна ',a**n)
end.

Пример
Основание a = 3.17
Показатель стпепени n = 6
Степень равна 1014.74185323017

№9

begin
  var s:=ReadlnString('Введите последовательность цифр через пробел:');
  s.Where(c->c<>' ').JoinIntoString.Inverse.ToBigInteger.Println
end.

Пример
Введите последовательность цифр через пробел: 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7
7890123456789012345