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.

Download