Cod sursa(job #1135895)
Utilizator | robert robertic | Data | 8 martie 2014 15:28:14 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.43 kb |
program p1;
var i,j,n,sol:integer;
fi,fo:text;
a:array[1..100] of integer;
begin
assign(fi,'fractii.in');reset(fi);
assign(fo,'fractii.out');rewrite(fo);
readln(fi,n);
close(fi);
for i:=2 to n do
a[i]:=i-1;
for i:=2 to n do begin
sol:=sol+a[i];
for j:=2*i to n do
a[j]:=a[j]-a[i];
end;
sol:=sol*2;
sol:=sol+1;
writeln(fo,sol);
close(fo);
end.