不是VIP会员,不能显示答案

题目解答

题目:
program test_0902;
var
s,i,j:integer;
a:array[1..10] of integer;
begin
s:=0;
i:=0;
for j:=1 to 10 do a[j]:=1;
while i<10 do
begin
i:=i+1;
s:=s+a[i];
for j:=i+1 to 10 do a[j]:=a[j]+1
end;
writeln('s=',s);
end.
输出:s=55
考点:
分析:
解答:
评论:
老师: