2011年慈溪市小学生计算机程序设计比赛初赛试题

f integer;РbeginР readln(n);Р s:=0;Р for i:=1 to n do read(a[i]);Р for i:=1 to ____①______ doРfor j:=_____②_____ to n doР if a[i]>a[j] then ______③______;Р writeln(‘s=’,s);Рend.Р2.高精度阶乘Р【问题描述】Р正整数A的阶乘,数学中定义为:A!=1×2×3×……×A,如:3!=1×2×3,现在输入一个正整数n(n<=50),要求计算出1~n的每一个整数的阶乘的高精度结果(即:结果为全部有效数字)。下面的程序中采用了加法代替乘法的方法计算阶乘,如3!=2!×3=2!+2!+2!。Р输出格式:每行打印一个数的阶乘Р如:输入:n=3Р输出:1!=1Р 2!=2Р 3!=6Р【程序清单】РProgram cx2011p6;Рconst max=80;РvarР i,j,k,n,r:integer;Р a,b:array[1..max] of integer;РbeginР write('n=');readln(n);Р a[1]:=1;writeln('1!=',1);Р for j:=1 to n-1 doР beginР b:=a;Р for k:=1 to___④______ doР for i:=1 to max doР beginР r:=____⑤______;Р if r>=10 then a[i+1]:=a[i+1]+1;Р a[i]:=_____⑥_____;Р end;Р k:=max;Р while ____⑦____ do k:=k-1;Р write(j+1,'!=');Р for i:=k downto 1 do write(a[i]);Р writeln;Р end;Р end.