首页 > 试题广场 >

var st : string; len, i...

[填空题]
var
  st : string;
  len, i : longint;
begin
  read(st);
  len := length(st);
  for i := 1 to len do
    if ('A' <= st[i]) and (st[i] <= 'Z') then
      st[i] := chr(ord(st[i]) + 1);
  writeln(st);
end.

输入:QuanGuoLianSai
输出:1

这道题你会答吗?花几分钟告诉大家答案吧!