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

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

July 2022 1 5 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

kakaya byla reakciya okruzhayushih na duel lenskogo i onegina

idealogiya marksizma 1 vzglyady na obshestvo 2 vzglyady na gosudarstvo 3 spo

kakoe minimalnoe kolichestvo vzveshavanij na chashechnyh vesah bez gir potrebuetsya

esse na pervom etape pervoj mirovoj vojny sssr vystupal kak agressor i soyuznik

reshite 3 lyubyh zadaniya

pridumajte 10 slovosochitanij gde iz svyazi upravlenie prevrashaetsya v soglosovanie

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

Helpful Links

Helpful Social