PC

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

TH
13 tháng 3 2023 lúc 22:20

pascal à bạn?

Bình luận (1)
KL
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ự
BA
Xem chi tiết
HK
Xem chi tiết
BL
Xem chi tiết
H24
Xem chi tiết
NT
Xem chi tiết
VQ
Xem chi tiết
NA
Xem chi tiết
DN
Xem chi tiết
TH
Xem chi tiết