Viết chương trình tìm bội chung nhỏ nhất của a và b 25/07/2021 Bởi Eloise Viết chương trình tìm bội chung nhỏ nhất của a và b
program boichungNN; uses crt; var a,b:integer; BCNN:longint; begin clrscr; write(‘Nhap a: ‘); readln(a); write(‘Nhap b: ‘); readln(b); BCNN:=a*b; while a<>b do if a>b then a:=a-b else b:=b-a; BCNN:=BCNN div a; write(‘BCNN cua ‘,a,’ va ‘,b,’ la: ‘,BCNN); readln end. Bình luận
Đây nha bn
program boichungNN;
uses crt;
var a,b:integer;
BCNN:longint;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
BCNN:=a*b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
BCNN:=BCNN div a;
write(‘BCNN cua ‘,a,’ va ‘,b,’ la: ‘,BCNN);
readln
end.