Отримання знань

дистанційна підтримка освіти школярів

• Відгуки

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

1 (1) 2014-08-21 15:37:07
{Pavement_b}
const
Nmax=250;
type
Digit=0..9;
Chislo=0..1000;
DlChislo=array[1..Nmax] of Digit;
var
a,b,c:DlChislo;
n,j:chislo;
Procedure Nul(var x:DlChislo);
begin
FillChar(x,SizeOf(x),0);
end;
Procedure Cop(x:DlChislo;var y:DlChislo);
var
i:Chislo;
begin
for i:=1 to Nmax do y[i]:=x[i];
end;
Procedure Sum(x,y:DlChislo;var z:DlChislo);
var
i,b:Chislo;
begin
b:=0;
for i:=1 to Nmax do begin
z[i]:=(x[i]+y[i]+b) mod 10;
b:=(x[i]+y[i]+b) div 10;
end;
end;
procedure GetDlChislo(x:DlChislo);
var
i,f:Chislo;
begin
f:=0;
for i:=Nmax downto 1 do begin
if x[i]<>0 then f:=1;
if f=1 then Write(x[i]);
if (i=1)and(f=0) then Write('0');
end;
WriteLn;
end;
begin
Read(n);
Nul(a);Nul(b);Nul(c);
a[1]:=1;b[1]:=2;
for j:=3 to n do begin
Sum(a,b,c);
Cop(b,a);
Cop(c,b);
end;
if n=1 then GetDlChislo(a)
else if n=2 then GetDlChislo(b)
else GetDlChislo(c);
end.

Повернутися до уроку

Повернутися до перелiку уроків курсу

В системі: гості - (); користувачі - (0)