Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hồng Anh

VCT tìm ước chung của 2 số a,b(pascal)

 

Cao ngocduy Cao
22 tháng 5 2022 lúc 16:42

Tham Khảo :

uses crt;

var a,b,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a<b then

begin

for i:=1 to a do

if (a mod i=0) and (b mod i=0) then write(i:4);

end

else begin

for i:=1 to b do

if (a mod i=0) and (b mod i=0) then write(i:4);

end;

readln;

end.


Các câu hỏi tương tự
Nguyễn Mai Thi
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
aloooooooo
Xem chi tiết
Nguyenquochuy
Xem chi tiết
Xuan Yen
Xem chi tiết
Mon_LAK
Xem chi tiết
Bùi Nguyễn Ngọc Anh
Xem chi tiết
Hải Hà
Xem chi tiết