Viết chương trình tìm bội chung nhỏ nhất của 2 số nguyên dương

0 bình luận về “Viết chương trình tìm bội chung nhỏ nhất của 2 số nguyên dương”

1. Program Hotboy ;

   Uses crt;

   var a,b,Ni,Nh: integer;

   begin

   Write(‘nhap so a’); readln(a);

   Write(‘nhap so b’); readln(b);

   Nh:=a*b;

   While a<>b do If a>b then a:=a-b else b:=b-a;

   Ni:=a;

   Nh:=Nh div Ni;

   write(‘Boi chung nho nhat la’,Nh);

   Readln

   end.

   Bình luận