新人求讲解！！ - pascal吧

level 1

桂敏0922 楼主

var
a:array[1..1000] of longint;
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=1;
for j:=1 to i div 2 do
a[i]:=a[i]+a[j];
end;
writeln(a[n]);
end.
谁能帮忙解释这道题的意思

2014年08月15日 09点08分 1