Nhập vào một mảng,in ra các ước của từng phần tử có trong mảng

0 bình luận về “Nhập vào một mảng,in ra các ước của từng phần tử có trong mảng”

1. program bt;
   uses crt;
   var A: array[1..1000] of integer;
       i, n, x: integer;
   begin
     clrscr;
     write(‘Nhap do dai mang la:’); readln(n);
     for i := 1 to n do begin
      write(‘Nhap A[‘, i ,’]=’);
      readln(A[i]);
     end;
     for i := 1 to n do begin
      write(‘Uoc so cua phan tu A[‘, i ,’] la:’);
      for x := 1 to A[i] do if A[i] mod x = 0 then write(x :3);
      writeln;
     end;
     readln
   end.

   Bình luận

2. uses crt;
   var a:array[1..1000000] of int64;
         n,i,j:longint;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         for i:=1 to n do 
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); read(a[i]);
               end;
         for i:=1 to n do
               begin
                     write(‘Uoc cua phan tu thu ‘,i,’: ‘);
                     for j:=1 to a[i] do if a[i] mod j=0 then write(j,’ ‘); writeln;
               end;
         readln
   end.

   Bình luận