Question

Ai giải hộ em với ạ . Em cảm ơn

viết phương trình cho phép nhạp 2 số nguyên dương bất kì từ bàn phím , tìm và đưa ra màn hình bội chung nhỏ nhất của 2 số nguyên dương vừa nhập trong chương trình có sử dụng chương trình con tìm ước chung lớn nhất của 2 số nguyên dương

Answer 1

uses crt;
var a,b,bcnn:integer;
{----------------------chuong-trinh-con----------------------------}
function ucln(var n,m:integer):integer;
var i:integer;
begin
ucln:=1;
for i:=1 to n*m do
if (n mod i=0) and (m mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
{---------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b div ucln(a,b);
writeln('Boi chung nho nhat=',bcnn);
readln;
end.