Помогите , пожалуйста , составить программы. Created by dasha131027. informatika-ru

Помогите , пожалуйста , составить программы...

July 2022 1 8 Report

Помогите , пожалуйста , составить программы

Answers & Comments

Вованичикчка // PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
var One:=BigInteger(1);
SeqGen(ReadInteger('n='),One,One,(i,j)->10*(i+j)+1).Last.Println;
end.

Пример
n= 50
124995484033895522927229727368421052631578947368421

№2

function Fact3n(n:integer):BigInteger;
begin
Result:=6;
for var i:=4 to 3*n do Result*=i
end;

begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
for var i:=1 to n do s+=Fact3n(i);
Write('Искомая сумма равна ',s)
end.

Пример
n= 10
Искомая сумма равна 265263749302140976067562256261206

1 votes Thanks 1

Answers & Comments

Какая была реакция окружающих на дуэль Ленского и Онегина...

Идеалогия марксизма : 1) Взгляды на общество 2) Взгляды на государство 3) Спо...

Какое минимальное количество взвешаваний на чашечных весах без гирь потребуется ...

ЭССЭ: На первом этапе Первой мировой войны СССР выступал как агрессор и союзник ...

Решите 3 любых задания ?...

придумайте 10 словосочитаний где из связи управление превращается в соглосование...

рекомендуемые вопросы

Helpful Links

Helpful Social