Viết chương trình tìm ước chung lớn nhất của 2 số nguyên dương m. n

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

1. program UCLN;

   uses crt;

   var m,n:integer;

   begin

           clrscr;

           write(‘Nhap m: ‘);   readln(m);

           write(‘Nhap n: ‘);   readln(n);

           while m<>n do

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

           write(‘UCLN= ‘,m);

           readln;

   end.

   Bình luận

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