Cod sursa(job #220408)
| Utilizator |  Matrix Neo Gheorghe90 |
Data | 10 noiembrie 2008 19:21:44 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
program asd;
var i,j,n,u:integer;
f:text;
begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
close(f);
assign(f,'fractii.out');
rewrite(f);
u:=n+n-1;
for i:=2 to n do
begin
for j:=2 to n do
if i mod j <>0 then inc(u);
end;
writeln(f,u-1);
close(f);
end.