viết chương trình tìm UCLN và BCNN nhiều số

0 bình luận về “viết chương trình tìm UCLN và BCNN nhiều số”

1. uses crt;
   var a: array [1..300] of longint;
   n, temp: integer;temp2, min: longint;
   function UCLN(x, y: longint): longint;
   begin
   if x mod y = 0 then UCLN := y else UCLN := UCLN(y, x mod y);
   end;
   begin
   clrscr;
   Write(‘Nhap so cac so can tim UCLN: ‘); Readln(n);
   Write(‘Nhap cac so: ‘);
   repeat
   inc(temp);
   readln(a[temp])
   until temp = n;
   min :=2000 * 2000 *2-1;
   repeat
   repeat
   dec(temp);
   temp2 := ucln(a[temp], a[n]);
   if temp2 < min then min := temp2
   until temp = 1;
   dec(n);
   temp :=n
   until n = 1;
   Writeln(‘UCLN cua cac so tren la ‘, min);
   Readln
   end.

   Bình luận

2. uses crt;
   var a: array [1..300] of longint;
   n, temp: integer;temp2, min: longint;
   function UCLN(x, y: longint): longint;
   begin
   if x mod y = 0 then UCLN := y else UCLN := UCLN(y, x mod y);
   end;
   begin
   clrscr;
   Write(‘Nhap so cac so can tim UCLN: ‘); Readln(n);
   Write(‘Nhap cac so: ‘);
   repeat
   inc(temp);
   readln(a[temp])
   until temp = n;
   min :=2000 * 2000 *2-1;
   repeat
   repeat
   dec(temp);
   temp2 := ucln(a[temp], a[n]);
   if temp2 < min then min := temp2
   until temp = 1;
   dec(n);
   temp := n
   until n = 1;
   Writeln(‘UCLN cua cac so tren la ‘, min);
   Readln
   end.

   Bình luận