1樓：
字串編輯
vars:string;
len,i,j:integer;
c,temp,temp1,a1,a2:char;
flag:boolean;
begin
readln(s);
len:=length(s);
read(c);
case c of
'd':begin
read(temp);read(a1);
for i:=1 to len do
if s[i]=a1 then
begin
flag:=true;
for j:=i+1 to len do
s[j-1]:=s[j];
dec(len);
for j:=1 to len do
write(s[j]);
break;
end;
if flag=false then writeln('error.');
end;
'i':begin
read(temp);read(a1);read(temp);read(a2);
for i:=len downto 1 do
if s[i]=a1 then
begin
flag:=true;
for j:=len downto i do
s[j+1]:=s[j];
s[i]:=a2;
inc(len);
for j:=1 to len do
write(s[j]);
break;
end;
if flag=false then writeln('error.');
end;
'r':begin
read(temp);read(a1);read(temp);read(a2);
for i:=1 to len do
if s[i]
=a1 then
begin
s[i]:=a2;flag:=true;
end;
if flag then for i:=1 to len do write(s[i]) else
write('error.');
end;
end;
end.
ab編碼：
vara,b:array[0..1000] of integer;
flag:array[0..1000] of boolean;
i,j,n,k:integer;
begin
read(k,n);
if k=1 then
begin
for i:=1 to n do read(a[i]);
b[1]:=0;
for i:=2 to n do
for j:=1 to i-1 do
if a[i]>a[j] then inc(b[i]);
write('b=(');
for i:=1 to n-1 do write(b[i],',');
writeln(b[n],')');
end else
begin
for i:=0 to n-1 do read(b[i]);
a[n-1]:=b[n-1];
flag[b[n-1]]:=true;
for i:=n-2 downto 0 do
begin
a[i]:=b[i];
while flag[a[i]]=true do inc(a[i]);
flag[a[i]]:=true;
for j:=i+1 to n-1 do
if b[i]>b[j] then inc(a[i]);
end;
write('a=(');
for i:=0 to n-2 do write(a[i],',');
writeln(a[n-1],')');
end;
end.
oj測試已通過
第十四屆全國青少年資訊學奧林匹克聯賽初賽試題答案
如果你對了 就是答2，3，1 沒逗號可能會扣2分 我們老師說的 readln a,b,c 有逗號嘛！也有可能那個老師會給你全分 如果錯了就會扣全分了 沒分啊輸出結果應該是 好像 是，今天我也去的哦 3,1,2 這麼不仔細,8分沒了,我也去了,答案沒出來 我也忘了逗號了。想死阿！第十四屆全國青少年資訊...
第十四屆全運會在陝西省那幾個市舉行
第十四屆全運會省本級新建場館建設動員會在西安長安區舉行。由西安版長安區負責建設的 權用於承辦2021年全運會比賽的新建場館鄠邑新校區 一館四場 與省體育局建設的長安常寧生態體育訓練比賽基地 陝西奧體中心體育館一併舉行奠基儀式。一館四場 專案,將承擔 十四運 的手球 橄欖球 曲棍球 棒球場 壘球比賽專...
想了解下哪些人可以參加2019第十四屆中國國際家庭醫療
1 有實力信譽 有銷售網路終端的經銷商 商 公司 分銷商 應用商 專供中心等。2 大型超市 百貨商場 醫藥商業集團 藥品連鎖店 專賣店 社群連鎖超市 養生館 健身房 美容院 健康管理連鎖機構 私人會所等 3 駐華採購商 進出口 公司 130多國駐華使館商務處 行業協會 50多個省市駐京辦事處 國資委...