Cod sursa(job #530848)

Utilizator superman13Stefan Maimescu superman13 Data 8 februarie 2011 15:55:26
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
program zaitz;
var n, i:integer;
    tb:array[1..300] of qword;
    {stri:string;}
begin
assign(input, 'kfib.in');
assign(output, 'kfib.out');
reset(input); rewrite(output);
read(n);
tb[1]:=1;
tb[2]:=1;
for i:=2 to n do begin
tb[i+1]:=tb[i]+tb[i-1];
end;
write(tb[i]);
{str(tb[n], stri);}
close(input); close(output);
end.