Tìm bội chung của hai số được nhập từ bàn phím.

2 câu trả lời

Var m, n, BC, BCNN:interger ;

begin

    Write( ' Nhap vao 2 so nguyen duong m,n : ' ) ;

    Readln ( m , n ) ;

      BC: =m*n ;

             While m<>n do

                    if m>n then m: m-n else n: =n-m ;

                        BCNN: =BC div m;

         Write( ' Boi chung nho nhat la : ' , BCNN ) ;

  Readnl

End