Cod sursa(job #262659)
| Utilizator |  Little Lady lady |
Data | 19 februarie 2009 16:06:14 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
var n,x,i,j :longint;
begin
assign(input,'fractii.in');reset(input);
assign(output,'fractii.out');rewrite(output);
readln(n);
x:=(n*2)-1;
for i:=2 to n do
for j:=2 to n do
if (i mod j<>0) and (j mod i<>0) then inc(x);
write(x);
close(input);close(output);
end.