首页 > 试题广场 >

var str : string; i : i...

[填空题] 
var
  str : string;
  i : integer;
begin
  str := 'Today-ix-terrible!';
  for i := 7 to 11 do
    if str[i] = '-' then str[i - 1] := 'x';
  for i := 13 downto 1 do
    if str[i] = 't' then str[i + 1] := 'e';
  writeln(str);
end.
输出：1
查看答案及解析
添加回答

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

提交观点

问题信息

普及 Pascal 完善程序-Pascal 字符串
上传者：牛客309901号
难度：
0条回答 976浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号