Cod sursa(job #1998989)
Utilizator | Data | 9 iulie 2017 21:06:27 | |
---|---|---|---|
Problema | Nunta | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.47 kb |
Program nunta;
var i, n : integer;
f1, f2, f3 : longint;
begin
assign(input,'nunta.in');
reset(input);
assign(output,'nunta.out');
rewrite(output);
read(n);
f1 := 1;
f2 := 2;
if (n < 3) then
begin
writeln(n);
exit;
end;
for i := 3 to n do
begin
f3 := f1+f2;
f1 := f2;
f2 := f3;
end;
writeln(f3);
close(input);
close(output);
end.