小学生计算机知识竞赛初赛试题(PASCAL)

4 15 3 5 8 12 17Р 16 17 18 19 20 21 1 2 4 7 11 16Р[程序清单]Рprogram xp4;Р var a,b:array[1..6,1..6] of integer;Р i,j,k:integer;Р beginР k:=1;Р for I:=1 to 6 doР for j:=1 to 6 doР beginР a[i,j]:=0; b[i,j]:=0;Р end;Р for I:=1 to 6 doР for j:=1 to I doР beginР a[i,j]:=k;Р ①Р end;Р k:=1;Р fo r I:=1 to 6 doР for j:=6 downto ② doР beginР b[j,i]:=k;Р ③Р end;Р for I:=1 to 6 doР beginР for j:= ④ doР write(a[i,j]:4);Р for j:=1 to 50-I*8 doР write(‘’);Р for j:= ⑤ doР write(b[i,j]:4);Р ⑥Р end;Р readlnР end.Р(2)Р[问题描述] (10分)Р 输入一个正整数,然后与它倒过来的数相加。Р 例如:输入328,与它倒过来的数相加后的结果为:Р 328+823=1151 Р[程序清单]Рprogram xp5;Р varР i,j,x,x1,y:integer;Р b:array[1..10]of 0..9;Р beginР readln(x);Р x1:=x; j:=11;Р while ① doР beginР j:=j-1;Р b[j]:= ②Р x:=x div 10;Р end;Р y:=0;Р for i:= ③ doР y:= ④Р x:= ⑤Р writeln(x);Р readlnР end.