Скачиваний:
283
Добавлен:
04.03.2014
Размер:
1.33 Кб
Скачать
program Alex;
Uses crt;
Const N=88; M=180;
type mass = array [1..M] of integer;
var
i,j,k,l: integer;
b,c,d: mass;
a: extended;
begin
clrscr;
a:=exp (88*ln(88));
writeln (a); {P.S. 1,22.....E+0120}

for i:=1 to (M-2) do
begin
b[i]:=0;
c[i]:=0;
d[i]:=0;
end;
b[M-1]:=0; b[M]:=1;
c[M-1]:=1;
c[M]:=0;
d[M-1]:=0; d[M]:=0;

for j:=1 to N do
begin
k:=0;
for i:=M downto 1 do
begin
b[i]:=b[i]*8+k;
if b[i]>9
then begin l:=b[i] mod 10; k:=(b[i]-l) div 10;
b[i]:=l;end else k:=0; end;
k:=0;
for i:=(M-1) downto 1 do
begin
c[i]:=c[i]*8+k;
if c[i]>9
then
begin
l:=c[i] mod 10;
k:=(c[i]-l) div 10;
c[i]:=l;
end
else k:=0;
end;
k:=0;
for i:=M downto 1 do
begin
d[i]:=b[i]+c[i]+k;
if d[i]>9
then
begin
l:=d[i] mod 10;
k:=(d[i]-l) div 10;
d[i]:=l;
end
else k:=0;
end;
for i:=M downto 1 do
b[i]:=d[i];
for i:=(M-1) downto 1 do
c[i-1]:=d[i];
c[M]:=0;
end;
for i:=1 to M do {ўбҐ M жЁда}
write (d[i]); writeln;
for i:= 26 to M do
d[i]:=0;
write (d[i]); {1-лҐ 25 §­ з йЁе жЁда}
readln;
end.