1999年信息学奥赛NOIP普及组
初赛
更早
2022-11-17 15:50:09
38次
一、单选题
二、简答题
Program excpl;
var
x，y，y1，jk，j1，g，e：Integcr；
a：array[l．．20]of 0．．9；
begin
x：＝3465； y：＝264； jk：＝20；
for j1：= 1 to 20 do a[j1]：＝ 0；
while y＜ ＞0 do
begin
y1：=y mod 10；
y：= y div 10；
while y1＜＞0 do
begin
g：=x；
for e：＝ Jk downto 1 do
begin
g：＝g＋a[e]；
a[e ]：= g mod 10；
g：= g div 10
end;
y1：＝ y1－ 1
end；
jk：＝jk-1
end；
j1=1；
while a[j1]＝0 do j1：=J1+1；
for Jk：=j1 to 20 do write(a[jk]:4)
WRITELN
End.
程序输出结果为：_________________________________
【知识点】 信息学NOIP普及组
program excp2
var
i，j：integer;；
a ：array[1．．14] of integer；
procedure sw(i1，j1：Integer)；
var k1： Integer；
begin
for k1：= 1 to（j1- i1+1） div 2 do
begin
a[i1＋k1-1]：=a[i1＋ k1－1]＋a[j1－k1+1]；
a[j1－k1＋1]：＝a[i1＋k1－1]－a[j1－k1+1];
a[i1+k1－1]：=a[i1-k1+1]－a[J1－k1+1]；
end；
end；
begin
j：=211；
for i:=1 to 14 do
begin
a[i]:=i; J：=j-i
end；
sw（1,4）； sw（ 5，10）;
Sw（11，14）；sw（1，14）；
For i：=1 to 14 do
begin
If j mod I=1 then write (a[i]:3)；
j：=j－a[i]；
end;
WRITElN
end.
程序运行结果是：________________________________________
【知识点】 信息学NOIP普及组
