Question

Cho dãy A gồm N số nguyên dương A1, A2 … An (5=<N=<10) .Đếm xem trong A có bao nhiêu cặp số nguyên tố cùng nhau, biết 2 số được gọi là nguyên tố cùng nhau nếu ước chung lớn nhất của chúng bằng 1

CỨUUUUUUUUU

Answer 1

Program HOC24;

var a: array[1..10] of integer;

i,n,d,j: integer;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:=x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

begin

write('Nhap N='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

for j:=i to n do

if ucln(a[i],a[j])=1 then d:=d+1;

write('Co ',d,' cap so nguyen to cung nhau');

readln

end.