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 ạ!

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.

    Bình luận

Viết một bình luận