Cho 2 số nguyên a và b hãy tìm UCLN của a và b.

0 bình luận về “Cho 2 số nguyên a và b hãy tìm UCLN của a và b.”

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