Cod sursa(job #153063)
| Utilizator |  Asaftei Robert asafteirobert |
Data | 10 martie 2008 08:44:04 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
program infoarena_fractii;
var i,j,k,n:integer;
begin
assign(input,'fractii.in');
reset(input);
readln(n);
close(input);
k:=2*n-1;
for i:=2 to n do
for j:=i+1 to n do
begin
if j mod i <>0 then k:=k+2;
end;
assign(output,'fractii.out');
rewrite(output);
writeln(k);
close(output);
end.