Cod sursa(job #898805)
| Utilizator |  Brodicico Grigore grigore_94 |
Data | 28 februarie 2013 11:48:21 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
program lalal;
var
i,j,n,m,x:longint;
f1,f2:text;
begin
assign(f1,'fractii.in');
assign(f2,'fractii.out');
reset(f1);
rewrite(f2);
read(f1,n);
x:=0;
for i:=1 to n do
for j:=1 to n do
if ((i mod j<>0)and(j mod i<>0))or(j=1)or(i=1) then x:=x+1;
writeln(f2,x);
close(f1);
close(f2);
end.