NT

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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
BN
Xem chi tiết
H24
Xem chi tiết
PN
Xem chi tiết
NC
Xem chi tiết
SF
Xem chi tiết
H24
Xem chi tiết
NL
Xem chi tiết
LA
Xem chi tiết
BH
Xem chi tiết