Cod sursa(job #521503)
Utilizator | porcescu gicu gicu_01 | Data | 12 ianuarie 2011 18:35:11 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
var a:array[1..1000000]of longint;
n,i,j,k:longint; f:text;
function cmmdc(a,b:longint):longint;
begin
if b=0 then cmmdc:=a else
cmmdc:=cmmdc(b,a mod b);
end;
begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
k:=0;
for i:=1 to n do
for j:=1 to n do
if cmmdc(i,j)=1 then inc(k);
close(f);
assign(f,'fractii.out');
rewrite(f);
writeln(f,k);
close(f);
end.