帮忙呀!!!!!!!!!!!!!

Program P1379;

Var s:string;

s1:string;

p1,p2,p3:integer;

i,k:integer;

procedure tian;

begin

if (p1=1) then begin

for k:=1 to ((ord(s)-ord(s))-1) do

s1[k]:=chr(ord(s)+k);

delete(s,i,1);

insert(s1,s,i);

end;

if (p1=2) then begin

if (ord(s)

0 条评论

目前还没有评论...

信息

ID
1379
难度
6
分类
模拟 点击显示
标签
递交数
5989
已通过
1615
通过率
27%
被复制
10
上传者