Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
// 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
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 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад