P1028 数的计算

P1028 数的计算

题目描述

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

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

1.不作任何处理;

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

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

输入输出格式

输入格式：

一个自然数n(n<=1000)

输出格式：

一个整数，表示具有该性质数的个数。

输入输出样例

输入样例#1：

6

输出样例#1：

6

说明

满足条件的数为

6，16，26，126，36，136

var

n,ans:longint;

procedure try(m:longint);

var

i:longint;

begin

inc(ans);

for i:=1 to m div 2 do try(i);//用回溯得出可以加不同的小于原数一半的数的不同方法

end;

begin

readln(n);

try(n);

writeln(ans);

end.