Quảng cáo
1 câu trả lời 193
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
149346 -
Đã trả lời bởi chuyên gia
99768 -
Đã trả lời bởi chuyên gia
97375 -
Đã trả lời bởi chuyên gia
80043 -
Đã trả lời bởi chuyên gia
72882 -
Đã trả lời bởi chuyên gia
55970 -
Đã trả lời bởi chuyên gia
55345
Gửi báo cáo thành công!
