CODE[VS] 1670 无穷的序列 简单数论

【问题描述】
有一个无穷序列如下：110100100010000100000…
请你找出这个无穷序列中指定位置上的数字
【输入】
第一行一个正整数N，表示询问次数；
接下来的N行每行一个正整数Ai，Ai表示在序列中的位置。
【输出】
N行，每行为0或1，表示序列第Ai位上的数字。
【输入样例】
4
3
14
7
6
【输出样例】
0
0
1
0
【数据范围】
对于100%的数据有N≤1500000，Ai≤10^9

一看就是一道数论题，因为只有01两种情况而且‘1000……000’的数量是个等差数列，所以对于每一次询问只需判断它是否是‘1’即可。

var a:array[0..44721]of longint;
n,i,ask,y,z,mid,db,p:longint;
begin
assign(input,'seq.in');reset(input);
assign(output,'seq.out');rewrite(output);
read(n);
for i:=1 to n do begin
read(ask);
p:=trunc(sqrt((ask-1)*2));
db:=p*(p+1) div 2;
if db<>ask-1 then writeln(0) else writeln(1);
end;
close(input);close(output);
end.