Quảng cáo
2 câu trả lời 121
Lời giải:
Program UCLN;
uses crt;
var a,b : integer;
begin
write (‘nhap so a la’);readln (a);
write (‘nhap so b la’);readln (b);
while a < > b do
if a > b then a:= a – b else b := b – a;
write (‘UCLN la:’,a);
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!
