社区讨论

（pascal）求助

TTCZN
CF71AWay Too Long Words参与者 3已保存回复 9

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
9 条
当前快照
1 份
快照标识符
@mi7xiqm0
此快照首次捕获于
2025/11/21 05:14
4 个月前
此快照最后确认于
2025/11/21 05:14
4 个月前
查看原帖
贴代码：
CPP
var
  i,j,s,n:longint;
  a:array[1..123] of string;
begin
 read(n);
  for i:=1 to n do
   read(a[i]);
     for i:=1 to n do
      if length(a[i])>10 then
       begin
        write(a[i][1],length(a[i])-2,a[i][length(a[i])]);
        writeln;
       end
        else writeln(a[i]);
end.
有错吗？蒟蒻WA的一声哭了出来

回复

共 9 条回复，欢迎继续交流。

正在加载回复...