dùng vòng lặp While…do: Tìm ước chung lớn nhất của hai số 24;36

0 bình luận về “dùng vòng lặp While…do: Tìm ước chung lớn nhất của hai số 24;36”

1. var a, b: byte;

   Begin

        a:=24; b:=36;

        While a<>b do

            If a>b then a:=a-b

            Else b:=b-a;

       Write(‘UCLN: ‘, a);

       Readln

   End.

   Bình luận

2. program UCLN;

   uses crt;

   var a,b:integer;

   begin

          clrscr;

          write(‘Nhap so thu nhat: ‘);  readln(a);

          write(‘Nhap so thu hai: ‘);  readln(b);

          while a<>b do

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

          write(‘UCLN= ‘,a);

          readln;

   end.

   Bình luận