Cod sursa(job #109378)
Utilizator | Robert Hangu Robybrasov | Data | 25 noiembrie 2007 10:36:24 |
---|---|---|---|
Problema | Pairs | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.51 kb |
var v:array[1..10000] of 1..1000000;
n,i,j:1..100000;
r:integer;
k,a,b:longint;
f:text;
begin
assign(f,'pairs.in');
reset(f);
readln(f,n);
for i:=1 to n do
readln(f,v[i]);
close(f);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
a:=v[i]; b:=v[j];
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
if a=1 then inc(k);
end;
assign(f,'pairs.out');
rewrite(f);
write(f,k);
close(f);
end.