Создайте проект для исчисления суммы n чисел, первое из которых равно х, а каждое...

Question

Создайте проект для исчисления суммы n чисел, первое из которых равно х, а каждое следующее равно квадрату предыдущего

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin 
  var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
  for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
  a.Println; sum.Println;
end.

Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108