Cod sursa(job #1420)
Utilizator | udrea cosmin cosmyudrea | Data | 13 decembrie 2006 17:06:14 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
program fractii;
var i,min,d,j,n,n1,q,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 i-1 do
begin
d:=1;
min:=i;
if j<min then min:=j;
q:=0;
repeat
d:=d+1;
if (i mod d=0) then if (j mod d=0) then
begin
x:=x+1;
q:=1;
end;
until ((q=1) or (d=min));
end;
n1:=n*n-2*x-n+1;
write (g,n1);
close (f);
close (g)
end.