Giúp em với: Viết chương trình tính bội chung nhỏ nhất của 2 số nguyên A,B được nhập từ bàn phím.

0 bình luận về “Giúp em với: Viết chương trình tính bội chung nhỏ nhất của 2 số nguyên A,B được nhập từ bàn phím.”

1. uses crt;
   var a,b,bcnn,r:longint;
   begin
   clrscr;
   write(‘nhap a:’); read(a);
   write(‘nhap b:’); read(b);
   bcnn:=a*b;
   while b<>0 do
   begin
    r:=a mod b;
   a:=b;
   b:=r;
   end;
   bcnn:= bcnn div m;
   writeln
   readln;
   readln;
   end.

   Bình luận

2. uses crt;
   var a,b,bcnn,r:longint;
   begin
           clrscr;
           write(‘nhap a:’); read(a);
           write(‘nhap b:’); read(b);
           bcnn:=a*b;
           while b<>0 do
           begin
                   r:=a mod b;
                   a:=b;
                   b:=r;
           end;
           bcnn:= bcnn div m;
           writeln (‘boi chung nho nhat:’,bcnn);
           readln;
           readln;
   end.

   Bình luận