又是一道愚人节题目~
不过大佬们都是C++代码,让我来写一篇pascal题解~
根据度娘告诉我们的数列,我们就可以开始打表了~~数列如下
1001010111001010
打表代码如下:
Const s='1001010111001010';//定义数列常量
Var n:longint;
Begin
read(n);//输入
write(s[n]);//输出数列的第n个数
end.
不过大佬们都是C++代码,让我来写一篇pascal题解~
根据度娘告诉我们的数列,我们就可以开始打表了~~数列如下
1001010111001010
打表代码如下:
Const s='1001010111001010';//定义数列常量
Var n:longint;
Begin
read(n);//输入
write(s[n]);//输出数列的第n个数
end.