点这里查看
讨论 / 简单的函数搞定
wujingyu 2013-05-17 03:51:00
点我顶贴 收藏 删除
program wjy;

var n,t:longint;

procedure js(m:longint);

var x,i:longint;

begin

x:=m div 2;t:=t+x;

for i:=1 to x do js(i);

end;

begin

readln(n);

t:=1;

js(n);

writeln(t);

end.

#1 wujingyu@2013-05-17 03:40:00
回复 删除
AC，嘻嘻
#2 wujingyu@2013-05-17 03:44:00
回复 删除
可以把 for i:=1 to x do js(i);改成 for i:=2 to x do js(i);
#3 laowu@2013-05-17 03:51:00
回复 删除
很有用，全过，AC
查看更多回复
提交回复