Cần ai đó giúp mik gấp
Số nguyên dương A được gọi là ước số của số nguyên B nếu B chia hết cho A. Ví dụ, số 15 có 4 ước số, đó là 1, 3, 5 và 15.
Yêu cầu: Cho n và dãy số nguyên x1, x2, . . . xn (1 ≤ xi ≤ 1018, 1 ≤ n ≤ 105). Với mỗi số nguyên xi hãy xác định xem số lượng ước số của nó là chẵn hay lẻ.
Nếu là chẵn – đưa ra số 0, trong trường hợp ngược lại – đưa ra số 1.
Input:
2
4 5
Output:
1 0
mấy bro giúp làm thanks
uses crt;
var a:array[1..100]of integer;
n,dem,i,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
dem:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then inc(dem);
if dem mod 2=0 then write('0 ')
else write('1 ');
end;
readln;
end.