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

viết chương trình nhập vào 2 số nguyên.tìm bcnn của chúng rồi in kết quả ra màn hình

Nguyễn Lê Phước Thịnh
24 tháng 4 2021 lúc 21:20

uses crt;

var bcnn,i,a,b:integer;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.


Các câu hỏi tương tự
Bích Ngọc
Xem chi tiết
ngocanh
Xem chi tiết
phạm hải nam
Xem chi tiết
Nguyễn Huỳnh Đổng Chi
Xem chi tiết
Selena Flynn
Xem chi tiết
日光
Xem chi tiết
Nguyễn Hoàng Long
Xem chi tiết
Lê Thùy Ánh
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết