Viết chương trình tính ước chung lớn nhất của 2 số a và b với a,b nhập từ bàn phím.

0 bình luận về “Viết chương trình tính ước chung lớn nhất của 2 số a và b với a,b nhập từ bàn phím.”

1. program phuongt;
   uses crt;
     var a, b: integer;
   begin
           clrscr;
           write(‘Nhap a = ‘); readln(a);
           write(‘Nhap b = ‘); readln(b);
           while a<>b do
           begin
                   if a>b then a:=a-b
                   else b:=b-a;
           end;
           write(‘USCLN = ‘, a);
           readln
   end.

   Bình luận

2. program UCLN;

   uses crt;

   var a,b:integer;

   begin

          clrscr;

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

          write(‘Nhap b: ‘);   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