Cod sursa(job #601764)
Utilizator | Data | 7 iulie 2011 20:19:06 | |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.64 kb |
Program Fractii;
var fi, fo : text;
i,j,n,k,nr: longint;
Function CMMDC(a,b : longint):longint;
begin
if a mod b = 0 then cmmdc:=b
else cmmdc:=cmmdc(b,a mod b);
end;
begin
assign(fi,'fractii.in'); reset(fi); readln(fi,n); close(fi);
assign(fo,'fractii.out'); rewrite(fo); k:=0;
for i:=1 to n do for j:=1 to n do begin
if i>=j then nr:=CMMDC(i,j)
else nr:=CMMDC(j,i);
if nr=1 then k:=k+1;
end;
writeln(fo,k); close(fo);
end.