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.