Cod sursa(job #170330)
| Utilizator |  stancu vlad valytgjiu91 |
Data | 2 aprilie 2008 17:19:09 |
|---|---|---|---|
| Problema | Nunta | Scor | 70 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
var
f,g:text;
i,n:integer;
ant,act,c:int64;
begin
assign(f,'nunta.in');
reset(f);
readln(f,n);
close(f);
assign(g,'nunta.out');
rewrite(g);
ant:=1;
act:=1;
for i:=2 to n do
begin
c:=act;
act:=act+ant;
ant:=c;
end;
writeln(g,act);
close(g);
end.
