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.
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.
