viết chương trình tìm ước chung lớn nhất của hai số với yêu cầu sử dụng thuật toán euclid thuật toán euclid: + a chia hết cho b thì ucln(a,b)=b +a chi

0 bình luận về “viết chương trình tìm ước chung lớn nhất của hai số với yêu cầu sử dụng thuật toán euclid thuật toán euclid: + a chia hết cho b thì ucln(a,b)=b +a chi”

1. Program UCLN;

   Uses crt;

   Var a,b,r:byte;

   Begin

        Clrscr;

        Writeln(‘CHUONG TRINH TIM UCLN CUA HAI SO’);

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

        Write(‘Nhap b: ‘);readln(b);

        r:=a mod b;

        While r<> 0 do

        Begin

            b:=r;

            a:=b;

            r:=a mod b;

        End;

        Write(‘UCLN cua hai so la: ‘,b);

        Readln

   End.

   Bình luận

2. var a,b,t:longint;

   begin

   write(‘Nhap 2 so: ‘); readln(a,b);

   while a>0 do
   begin
   t:=b mod a;
   b:=a;
   a:=t;
   end;
   write(‘UCLN: ‘,b);

   readln

   end.

   Bình luận