Cod sursa(job #833711)
| Utilizator |  Cristea Petru pcristea |
Data | 12 decembrie 2012 22:30:38 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var n,k,a,b:word;
f1, f2:text;
function cmmdc(a,b:longint):longint;
begin
if a=0 then cmmdc:=b else cmmdc:=cmmdc(b mod a, a);
end;
begin
assign(f1, 'fractii.in');
reset(f1);
readln(f1,n);
assign(f2, 'fractii.out');
rewrite(f2);
for a:=1 to n do
begin
for b:=1 to n do
if cmmdc(a,b)=1 then inc(k);
end;
writeln(f2, k);
close(f2);
end.