Viết thuật toán tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình thanks trc ạ

0 bình luận về “Viết thuật toán tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình thanks trc ạ”

1. Program bai_tap;

   Uses crt;

   Var M,N: integer;

   Begin

      clrscr;

      write (‘Nhập M, N= ‘);

      readln (M,N);

      While M <> N do

           if M >N then M:= M – N else N:= N – M;

      writeln( ‘ UCLN = :  ‘, M);

      readln

   End.

   Bình luận