只给一张图,需要的下载自己看。

附:统计程序如下(Fortran程序)
integer s(100),a(100),sm(100)
real b(30)
do n=1,30
if(n.le.10) b(n)=20.0/3
if(n.ge.11.and.n.le.20)b(n)=20.*2/3
if(n.ge.21.and.n.le.30)b(n)=20.*3/3
enddo a(1)=33.3333
do n=2,10
a(n)=int(a(1)+b(n)*(n-1)+0.34)
enddo
do n=11,20
a(n)=int(a(10)+b(n)*(n-10)+0.34)
enddo a(21)=190
do n=22,30
a(n)=int(a(21)+b(n)*(n-21)+0.34)
enddo a(30)=a(30)-20 do n=31,40
a(n)=350
enddo
do n=41,50
a(n)=311
enddo
do n=51,100
a(n)=280
enddo s(1)=1033
do n=2,100
s(n)=s(n-1)+a(n)
enddo
do n=1,100
sm(n)=s(n)*5
write(10,*)n,a(n),s(n),sm(n)
enddo
end

附:统计程序如下(Fortran程序)
integer s(100),a(100),sm(100)
real b(30)
do n=1,30
if(n.le.10) b(n)=20.0/3
if(n.ge.11.and.n.le.20)b(n)=20.*2/3
if(n.ge.21.and.n.le.30)b(n)=20.*3/3
enddo a(1)=33.3333
do n=2,10
a(n)=int(a(1)+b(n)*(n-1)+0.34)
enddo
do n=11,20
a(n)=int(a(10)+b(n)*(n-10)+0.34)
enddo a(21)=190
do n=22,30
a(n)=int(a(21)+b(n)*(n-21)+0.34)
enddo a(30)=a(30)-20 do n=31,40
a(n)=350
enddo
do n=41,50
a(n)=311
enddo
do n=51,100
a(n)=280
enddo s(1)=1033
do n=2,100
s(n)=s(n-1)+a(n)
enddo
do n=1,100
sm(n)=s(n)*5
write(10,*)n,a(n),s(n),sm(n)
enddo
end