Cod sursa(job #587137)
| Utilizator |  Brodicico Grigore grigore_94 |
Data | 3 mai 2011 22:58:20 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
program lalala;
var s,n,a,b,i,c:0..2000000000;
f1,f2:text;
begin
assign(f1,'fractii.in');
assign(f2,'fractii.out');
reset(f1);
rewrite(f2);
read(f1,n);
a:=1;b:=0;
c:=0;
for i:=1 to n do
begin
c:=a+b;
b:=a;
a:=c;
s:=s+c;
end;
writeln(f2,s+1);
close(f1);
close(f2);
end.
