Quảng cáo
2 câu trả lời 169
Lời giải:
program nguyen_to_cung_nhau;
uses crt;
var a,b:longint;
function ucln(a,b:longint):longint;
begin
while a<>b do
if a>b then
a:=a-b else
b:=b-a;
if a=b then
ucln:=a;
end;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
if ucln(a,b)=1 then
writeln('la 2 so nguyen to cung nhau')
else writeln('ko la 2 so nguyen to cung nhau');
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149631 -
Đã trả lời bởi chuyên gia
99998 -
Đã trả lời bởi chuyên gia
97612 -
Đã trả lời bởi chuyên gia
80300 -
Đã trả lời bởi chuyên gia
73097 -
Đã trả lời bởi chuyên gia
56190 -
Đã trả lời bởi chuyên gia
55568
Gửi báo cáo thành công!
