pascal程序题 [复制链接]

要求找出具有下列性质的个数（包含输入的自然数n）；
先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行
处理：
1）不做任何处理；
2）在它的左边加上一个自然数，但该自然数要小于原数的一半；
3）加上数后，继续按此规则进行处理，直到不能再加自然数为之。
例如：
输入：
6
输出：
6
16
26
126

这不是Noip2001 普及组复赛的第一题吗？？？？？1111

太让人失望了

呵呵