Cod sursa(job #1358)
Utilizator | udrea cosmin cosmyudrea | Data | 13 decembrie 2006 13:43:57 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
program fractii;
var i,d,j,n,x:longint;
f,g:text;
begin
assign(f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
x:=0;
for i:=2 to n do
for j:=i+1 to n do
begin
d:=1;
repeat
d:=d+1;
if ((i mod d) =0) and ((j mod d)=0) then
begin
x:=x+1;
d:=i;
end;
until d=i;
end;
n:=n*n-2*x-n+1;
write (g,n);
close (f);
close (g)
end.