viết chương trình pascal nhập vào 2 số x,y sau đó in ra ucln và bcnn và x,y có tất cả bao nhiêu ước(chỉ cần in ra số lượng)

0 bình luận về “viết chương trình pascal nhập vào 2 số x,y sau đó in ra ucln và bcnn và x,y có tất cả bao nhiêu ước(chỉ cần in ra số lượng)”

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);
   {randomize;
   x:=random(1000);
   y:=random(1000);
   writeln (x);
   writeln (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. 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