Xây dựng thuật toán tìm BSC ( bội số chung ) nhỏ nhất của 2 số nguyên dương A và B Mọi người ai biết làm giúp mình với, hứa thả tym + vote 5 sao
2 câu trả lời
Var m,n,bc,bcnn:integer;
begin
Write('Nhap vao 2 so nguyen duong m,n:');
Readln(m,n); BC:=m*n;
While m<>n do
begin
If m>n then m:=m mod n
else n:=n mod m;
end;
BCNN:=BC div m;
Write('Boi chung nho nhat la:',BCNN);
Readln;
End.
Chúc bạn học tốt đạt nhiều thành công
Var m,n,bc,bcnn:integer;
begin
Write('Nhap vao 2 so nguyen duong m,n:');
Readln(m,n); BC:=m*n;
While m<>n do
begin
If m>n then m:=m mod n
else n:=n mod m;
end;
BCNN:=BC div m;
Write('Boi chung nho nhat la:',BCNN);
Readln;
End.