Cod sursa(job #116721)
Utilizator | claudiu claudiu_sy | Data | 19 decembrie 2007 13:28:52 |
---|---|---|---|
Problema | Pairs | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
var a:array [1..15000] of longint;
n,i,j,c:longint;
f,g:text;
function cmmdc(p,b:integer):integer;
begin
if b=0 then cmmdc:=p
else cmmdc:=cmmdc(b,p mod b);
end;
begin
assign(f,'pairs.in');
assign(g,'pairs.out');
reset(f);
rewrite(g);
readln(f,n);
c:=0;
for i:=1 to n do
readln(f,a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if cmmdc(a[i],a[j])=1 then c:=c+1;
writeln(g,c);
close(f);
close(g);
end.