Viết chương trình tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mng giúp mình vs ạ!

0 bình luận về “Viết chương trình tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mng giúp mình vs ạ!”

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.

   Trả lời

2. bn xem hình nha

   

   Trả lời