Viết chương trình tìm ước chung lớn nhất của 2 số nguyên.In kết quả ra màn hình

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.In kết quả ra màn hình”

1. Program UCLN;

   uses crt; var a,b : integer;

   begin write (‘nhap so a la ‘);

   readln (a);

   write (‘nhap so b la ‘);

   readln (b);

   while a < > b do

   if a >b then a := a – b else b := b – a ;

   write ( ‘ UCLN la :’ , a );

   readln

   end.

   ~~~~~~~~~~~~~~~~~~ Chúc bn học tốt ~~~~~~~~~~~~~~~~~

   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