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

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

Задать свой вопрос
1 ответ
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


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

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

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт