我这个哪里错了?

type
qw=array[1..200] of integer;
var
a:qw;
b,i:integer;
procedure as(var a:qw);
begin
if a[i]=1 then b:=b+1
else
for i:=2 to (a[i] div 2) do
begin
a[i]:=i;
as(a);
end;
end;
begin
i:=1;
readln(a[i]);
as(a);
writeln(b);
end.

0 条评论

目前还没有评论...

信息

ID
1130
难度
2
分类
递推 点击显示
标签
递交数
6221
已通过
3746
通过率
60%
上传者