viết CT tìm UCLN và BCNN của 3 số

0 bình luận về “viết CT tìm UCLN và BCNN của 3 số”

1. uses crt;
   var a,b,c,t,i:longint;
   begin
   clrscr;
      write(‘Nhap 3 so: ‘);readln(a,b,c);
      for i:=1 to a do if(a mod i=0)and(b mod i=0)and(c mod i=0)then t:=i;
      writeln(‘UCLN= ‘,t);
      i:=a;
      while (i mod a<>0)or(i mod b<>0)or(i mod c<>0) do inc(i);
      writeln(‘BCNN= ‘,i);
   readln
   end.

   Bình luận

2. uses crt;
   var a, b, c, uc, bc, i, m: longint;
   begin
    clrscr;
     write (‘nhap a: ‘);  readln (a);
     write (‘nhap b: ‘);  readln (b);
     write (‘nhap c: ‘);  readln (c);
     m:=a;
     if m>b then m:=b;
     if m>c then m:=c;
     uc:=1;
     for i:=1 to m do
     if (a mod i= 0) and (b mod i= 0) and (c mod i= 0) then
      begin
       if uc<i then uc:=i;
      end;
      bc:=a*b*c;
      for i:=a*b*c downto 1 do
      if (i mod a= 0) and (i mod b= 0) and (i mod c= 0) then
      begin
       if bc>i then bc:=i;
      end;
      writeln (‘Uoc Chung Lon Nhat: ‘,uc);
      writeln (‘Boi Chung Nho Nhat: ‘,bc);
    readln;
   end.

   Bình luận