noip普及组初赛写运行结果+完善程序1.doc

写出下列程序运行结果 1．VAR a：ARRAY [1．．3，1..3] OF Integer； i，j：Integer； Begin FOR i：=1 TO 3 DO FOR j：=1 TO 3 DO A[i，j]：=(i DIV j+2)*(j DIV i+2)； FOR I：=1 TO 3 DO BEGIN FOR J：=I T0 3 DO Write(a[i，j]：3)； Writeln； END； END. 输出 2．VAR i， j， n， t： Integer； a：ARRAY[1．．100] OF Integer； f：Boolean； BEGIN Read(n)； FOR i：=1 TO n DO Read(a[i])； Readln； f：=True； i：=1； WHILE (i=n-1)AND f DO BEGIN f：=False； FOR j：=1 TO n -1 DO IF a[j]a[j+1]THEN BEGIN t：=a[j]； a[j]：=a[j+1]； a[j+1]：=t； f：=True END； i：=i+1 END； FOR i：=1 TO n DO Write(a[i]：2)； Writeln END. 输入数据：5 5 6 8 9 5回车 输出 3．FUNCTION FUN(X：INTEGER)：INTEGER； BEGIN IF(X=0)OR(X=1)THEN FUN:=3 　　ELSE FUN:=X-FUN(X-2) END； BEGIN WRITELN(FUN(20))； READLN； END. 输出： 完善程序 问题描述： 给出一个正整数N（1≤N≤100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，……N-2,N-1,N，且可求出从1开始的这N个数的全部各个数位上的数字之和。 例如：当N=12时，这12个数是：1，2，3，4，5，6，7，8，9，10，11，12。 则这12个数的数字之和为： S=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51 程序如下： program dgc1_401; var n,s,x,y,j:integer; begin readln(n); s:=0; for j:=1 to n do begin （1） ； while （2） do begin y:=x mod 10; s:=（3） x:= （4） ; end; end; writeln(s=,s); end.