Phát Châu

viết chương trình tìm ước chung lớn nhất của hai số m và n biết rằng m và n là biếnd được nhập từ bàn phím

Trần Minh Hiếu
13 tháng 3 2023 lúc 22:20

pascal à bạn?

Bình luận (1)
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:19

Var r,m,n:integer;

Begin

Write('m = ');readln(m);

Write('n = ');readln(n);

Repeat

r:=a mod b;

a:=b;

b:=r;

Until r = 0;

Write('UCLN(',m,',', ',n,') la ',r);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Bùi Nguyễn Ngọc Anh
Xem chi tiết
hoàng kim
Xem chi tiết
Bảo Châu Lê
Xem chi tiết
xmisiucute
Xem chi tiết
Nguyễn Thuận
Xem chi tiết
Vũ hữu quyền
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Đức Anh Nguyễn
Xem chi tiết
Thư Huỳnhh
Xem chi tiết