viết chương trình tìm UCLN và BCNN của 2 số x,y

0 bình luận về “viết chương trình tìm UCLN và BCNN của 2 số x,y”

1. uses crt;
   var u, i2, b, t, i, x, y, dem: integer;
   begin
   clrscr;
   write (‘nhap x: ‘);  readln (x);
   write (‘nhap y: ‘);  readln (y);
   b:=x*y;
   t:=y mod x;
   while t<>0 do
   begin
   t:=x mod y;
   x:=y;
   y:=t;
   end;
   u:=x;
   b:=b div u;
   writeln (‘UCLN la: ‘,u);
   writeln (‘BCNN la: ‘,b);
   dem:=0;
   for i:=1 to x do
   if x mod i = 0 then
   begin
   write (i,’   ‘);
   dem:=dem+1;
   end;
   writeln (‘co tat ca ‘,dem,’ UC’);
   readln;
   end.

   Bình luận

2. Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ :

   var x,y,UCLN,BCNN,t:integer;

   begin

   readln(x,y) ;
   BCNN:=x*y;
   t:= y mod x;
   While t <> 0 do
         Begin
           t:= x MOD y;
           x:= y;
           y:= t;
         End;

   ucln:=x;
   BCNN:=BCNN div UCLN;

   write(UCLN,’ ‘,BCNN);

   Bình luận