Question

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

Answer 1

1. var n,first,two,i,s:integer;
begin
readln(n);
first:=1;
two:=1;
for i:=1 to n-2 do
begin
s:=(first+two)*10+1;
first:=two;
two:=s;
end;
writeln(two);
end.

Второй вариант (с функцией):
var n,first,two,i,s:integer;

function Zakonomer(a:integer):integer;
begin
first:=1;
two:=1;
for i:=1 to n-2 do
begin
s:=(first+two)*10+1;
first:=two;
two:=s;
end;
Zakonomer:=two;
end;

begin
readln(n);
writeln(Zakonomer(n));
end.

2. var i,n,sum:integer;

function Fact(a:integer):integer;
var f:integer;
begin
f:=1;
for i:=1 to a do
begin
f:=f*i;
end;
Fact:=f;
end;

begin
readln(n);
while n<>0 do
begin
sum:=sum+fact(n);
n:=n-3;
end;
writeln(sum);
end.

Answer 2

// 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