Viết chương trình con tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mk đang cần gấp, mng giúp mk với ạ!

0 bình luận về “Viết chương trình con tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mk đang cần gấp, mng giúp mk với ạ!”

1. program im_14424;

   uses crt;

   var a,b: integer;

   begin

   clrscr;

   write(‘Nhap vao gia tri cua a va b: “);

   readln(a,b);

   while a <> b do

   if a>b then a:=a-b

   else b:=b-a;

   readln(a);

   end.

   Bình luận