Question

Hai số nguyên được gọi là số nguyên tố cùng nhau nếu chúng có ước chung lớn nhất là 1. Viết chương trình nhập vào 2 số nguyên a và b. Kiểm tra xem hai số này có phải là số nguyên tố cùng nhau hay không ?

Answer 1

uses crt;

var a,b,ucln,x,y:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

x:=a;

y:=b;

while a<>b do

begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

if ucln=1 then writeln(x,' va ',y,' la hai so nguyen to cung nhau')

else writeln(x,' va ',y,' khong phai la hai so nguyen to cung nhau');

readln;

end.