uses crt;
var dem,n,i,j:longint;
function kt(a,b:longint):boolean;
var i:longint;
begin
kt:=true;
for i:=2 to a do if(a mod i=0)and(b mod i=0) then kt:=false;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
for j:=1 to i-1 do
if kt(i,j) then inc(dem);
writeln(dem);
readln;
end.
Mình cho i chạy từ 1 tới n
Mình cho j chạy từ 1 tới i-1(để thỏa mãn điều kiện phân số j/i bé hơn 1)
Mình sẽ kiểm tra đó có phải số nguyên tố cùng nhau không vì phân số tối giản có tử số và mẫu số là hai số nguyên tố cùng nhau.(hàm kt)
Nếu phải thì tăng biến dem(đếm).
Xuất biến dem.
Chú thích: i là mẫu số, j là tử số nha.