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

Bởi

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

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

  1. 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

    Bình luận

Viết một bình luận