Question

căn cứ vào thuật toán đã xây dựng ở bài 5. Viết chương trình tìm BCNN(a,b). Biết 2 số a,b nhập từ mãy tinhd

Answer 1

Program hotrotinhoc_hoc24;

var a,b,bcnn,tg: integer;

begin

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

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

bcnn:=a*b;

while b<>0 do

begin

tg:=a mod b;

a:=b;

b:=tg;

end;

write('BCNN(',a,';',b,')=',bcnn div a);

readln

end.