Nu aveti permisiuni pentru a descarca fisierul grader_test38.ok
Cod sursa(job #603944)
| Utilizator |  Dimulescu David lehman97 |
Data | 19 iulie 2011 14:39:14 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
var n,i,j,s:longint;
begin
assign(input,'fractii.in');reset(input);
assign(output,'fractii.out');rewrite(output);
read(n);
s:=n;
for i:=2 to n do
for j:=1 to n do
if ((i mod j<>0)and(j mod i<>0))or((i=1)or(j=1))
then inc(s);
write(s);
end.