Wikioi 天梯 数的计算（1011）

题目描述 Description

我们要求找出具有下列性质数的个数(包含输入的自然数n):

先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行处理:

1.          不作任何处理;

2.          在它的左边加上一个自然数,但该自然数不能超过原数的一半;

3.          加上数后,继续按此规则进行处理,直到不能再加自然数为止.

输入描述 Input Description

一个数n

输出描述 Output Description

满足条件的数的个数

样例输入 Sample Input

6

样例输出 Sample Output

6

数据范围及提示 Data Size & Hint

6个数分别是：

6

16

26

126

36

136

Wikioi将此题分类于递推专题，笔者登时心灰意冷……

（这题用递归多好实现啊，数据又不大……如果数据大那另当别论……）

怎么办呢？怎么办呢？递推不好讲啊……讲递归？这题“不是”递归题啊……

这次笔者很懒……这给OI‘er们留下了福利代码……如此一来，委屈吐槽家了……

欢迎吐槽家吐槽递归做法，弘扬递推做法……

Program asd;
Var
	n,total:longint;
	
Procedure work(c:longint);
	var i:longint;
	begin
		inc(total);
		for i:=1 to (c div 2) do work(i);
	end;
	
Begin
	readln(n);
	work(n);
	writeln(total);
End.