LATGACH - Lát gạch
Tác giả: ladpro98
Ngôn ngữ: Pascal
program latgach;
uses math;
type bignum=string[30];
const fi='';
var n,t,i:longint;
f:array[1..100] of string[30];
inp:text;
function cong(a,b:bignum):bignum;
var c:bignum;
x,y,sum,i,carry:longint;
begin
c:='';carry:=0;
while length(a)<length(b) do a:='0'+a;
while length(b)<length(a) do b:='0'+b;
for i:=length(a) downto 1 do
begin
x:=ord(a[i])-48;
y:=ord(b[i])-48;
sum:=x+y+carry;
carry:=sum div 10;
c:=chr(sum mod 10 + 48) + c;
end;
if carry>0 then c:='1'+c;
exit(c);
end;
begin
assign(inp,fi);
reset(inp);
readln(inp,t);
f[1]:='1';
f[2]:='2';
for i:=3 to 100 do
f[i]:=cong(f[i-1],f[i-2]);
for i:=1 to t do
begin
readln(inp,n);
writeln(f[n]);
end;
close(inp);
end.