Cod sursa(job #530848)
| Utilizator |  Stefan 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 |
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.
