Cod sursa(job #1084)
Utilizator | Popescu Bogdan-Ionut bogdan315 | Data | 12 decembrie 2006 16:55:43 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
var i,n,j,nr,d:integer;
f,g:text;
function cmmdc(a,b:integer):integer;
begin
while b<>0 do
begin
if a>b then a:=a-b
else b:=b-a;
end;
cmmdc:=a;
end;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n); nr:=0;
for i:=1 to n do begin
for j :=1 to n do
if cmmdc(i,j)=1 then inc(nr);
end;
write(g,nr);
close(f);close(g);
end.