uses crt;
var a,b,c,d,n:longword;
begin
clrscr;
write('n=');readln(n);
a:=1;b:=1;c:=1;d:=2;
while c<n do
begin
d:=d+1;
c:=a+b;
a:=b;
b:=c;
end;
write(n,' la phan tu thu ');
if c=n then writeln(d,' trong day fibonacci')
else writeln('0 trong day fibonacci');
readln;
end.
===============================
uses crt;
var n,i:longword;
f:array[1..10000000] of longword;
begin
clrscr;
write('n=');readln(n);
f[1]:=1;f[2]:=1;
for i:=3 to n do f[i]:=f[i-1]+f[i-2];
writeln('Phan tu thu ',n,' trong day fibonacci la ',f[n]);
readln;
end.
===================================
uses crt;
var m:byte;
k:boolean;
n:longword;
begin
clrscr;
readln(n);
m:=n mod 10;
n:=n div 10;
k:=true;
while n<>0 do
begin
if n mod 10<m then
begin
k:=false;
break;
end;
m:=n mod 10;
n:=n div 10;
end;
writeln(k);
readln;
end.