Viết chương trình tìm UCLN và BCNN của hai số nguyên M và N được nhập từ bàn phím?

0 bình luận về “Viết chương trình tìm UCLN và BCNN của hai số nguyên M và N được nhập từ bàn phím?”

1. Program UCLN_va_BCNN;

   Uses crt;

   Var a,b,aa,bb:integer;

   Begin

     Clrscr;

     Write (‘nhap vao a,b:’);

     Readln(a,b);

     aa:=a;

     bb:=b;

     While aa<>bb do begin

       If aa> bb then aa:=aa-bb else

       bb:=bb-aa;

     End;

   Write (‘ucln:’,aa);

   Write(‘bcnn:’,a*b div aa);

   Readln;

   End.     

   Bình luận

2. uses crt;

   var a,b,aa,bb:integer;

   begin

         clrscr;

        write (‘nhap vao a,b:’);readln(a,b);

   aa:=a;

   bb:=b;

   while aa<>bb do begin

   ì aa> bb then aa:=aa-bb else

   bb:=bb-aa;

   end;

   write (‘ucln:’,aa);

   write(‘bcnn:’,a*b div aa);

   readln

   end.     

   Bình luận