1 кбайт=1024 байт
1мегобайт=1024кбайт
1гигабайт=1024мегобайт
Var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
begin
d:=a+b+c;
a:=b;
b:=c;
c:=d;
write(' ',d);
end;
end.
Пример:
15
<span> 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209</span>
Program red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>