Cod sursa(job #111684)
Utilizator | Dutescu Radu Alin tiger_10 | Data | 1 decembrie 2007 17:52:30 |
---|---|---|---|
Problema | Pairs | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
var i,n,j,x,y,k,t:longint;
a:array[1..100000] of longint;
f,g:text;
begin
assign(f,'pairs.in');
reset(f);
readln(f,n);
for i:=1 to n do
readln(f,a[i]);
close(f);
k:=0;
for i:=1 to n-1 do
for j:=i to n do
if a[i]<>a[j] then begin
x:=a[i];
y:=a[j];
while y<>0 do
t:=y;
y:=y mod x;
x:=t;
if x=1 then inc(k);
end;
assign(g,'pairs.out');
rewrite(g);
write(g,k);
close(g);
end.