Cod sursa(job #1346)
Utilizator | udrea cosmin cosmyudrea | Data | 13 decembrie 2006 13:21:47 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
program fractii;
var a,i,d,j,n,b,r,x:longint;
f,g:text;
begin
assign(f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
for i:=2 to n do
for j:=2 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-x;
write (g,n);
close (f);
close (g)
end.