神马品牌网小院园艺设计效果图:请问一道pascal语言程序题，急！！！跪求啊！！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 07:03:39
这是一道pascal语言程序题，我不会做，清高手帮帮忙，一定要把程序所有过程写出来：
要求找出具有下列性质的个数（包含输入的自然数n）；
先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行
处理：
1）不做任何处理；
2）在它的左边加上一个自然数，但该自然数要小于原数的一半；
3）加上数后，继续按此规则进行处理，直到不能再加自然数为之。
例如：
输入：
6
输出：
6
16
26
126
如果各位高手有时间，可不可以再把程序思想告诉我？？？万分感谢啊。你们千万千万不要见死不就啊！！！
要求找出具有下列性质的个数（包含输入的自然数n）；
先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行
处理：
1）不做任何处理；
2）在它的左边加上一个自然数，但该自然数要小于原数的一半；
3）加上数后，继续按此规则进行处理，直到不能再加自然数为之。
例如：
输入：
6
输出：
6
16
26
126
如果各位高手有时间，可不可以再把程序思想告诉我？？？万分感谢啊。你们千万千万不要见死不就啊！！！
program jishu;
var
n:integer;
function pos(x:integer):integer;
var i:integer;
begin
result:=1;
for i:=1 to x div 2 do
result:=result+pos(i);
end;
begin
readln(n);
writeln(pos(n));
readln
end.
楼主的题目有问题，第（2）条要求小于原数的一半，那么2左边怎么又加了1呢？如果是小于等于原数的一半，那36怎么不在输出里呢？
不要回答她......BS......