Cod sursa(job #16186)
Utilizator | Voroneanu Radu Stefan radu_voroneanu | Data | 12 februarie 2007 16:04:09 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.47 kb |
var n:longint;
x:array[1..1000000] of boolean;
s,i,j:longint;
f,g:text;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
r:=a mod b;
while b<>0 do begin
r:=a mod b;
a:=b;
b:=r;;
end;
cmmdc:=a;
end;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out'); rewrite(g);
readln(f,n);
s:=1;
for i:=2 to n do
for j:=1 to i do
if cmmdc(i,j)=1 then
inc(s,2);
writeln(g,s);
close(g); close(f);
end.