Cod sursa(job #1073071)
| Utilizator |  Armand Boer AmDB |
Data | 5 ianuarie 2014 17:10:28 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
program fractii;
var n, k, p, q:integer;
g,f:text;
begin
assign(g,'fractii.in');
assign(f,'fractii.out');
reset(g);
rewrite(f);
read(g,n);
k:=0;
for p:=1 to n do
for q:=1 to n do
begin
if (p mod q <> 0) and (q mod p <> 0) or (p=1) or (q=1) then k:=k+1;
end;
write(f,k);
close(f);
close(g);
end.