Hai số được gọi là nguyên tố cùng nhau khi chúng có ước chung lớn nhất là 1 Viết chương trình nhập n số nguyên từ bàn phím(n>=2) A. In ra các cặp số nguyên tố cùng nhau B. Đếm có bao nhiêu cặp số nguyên bằng nhau
1 câu trả lời
uses crt;
type int = int64;
var a: array[0..10000] of int;
i, j, n, cnt: longint;
function __gcd(a, b: int): int;
var r: int;
begin
a:=abs(a); b:=abs(b);
while b <> 0 do begin
r:=a mod b;
a:=b; b:=r;
end;
exit(a);
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i + 1 to n do
if __gcd(a[i], a[j]) = 1 then begin
writeln('(', a[i], ', ', a[j], ')');
inc(cnt);
end;
writeln(cnt);
readkey;
end.
Câu hỏi trong lớp
Xem thêm
