Question

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 

Answer 1

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.