10.21 简写单词 2414

题目

题解

模拟一下就好了，每个单词的前缀只要满足不是其它单词的前缀就可以啦，不用担心重复的

代码

var
  n,i,j,k,b:longint;
  s,t:array[0..100]of string;
begin
  readln(n);
  for i:=1 to n do
    readln(s[i]);
  for i:=1 to n do
    for j:=1 to length(s[i]) do
      begin
        b:=0;
        s[0]:=copy(s[i],1,j);
        for k:=1 to n do
          if i<>k then
            if pos(s[0],s[k])=1 then begin b:=1;break;end;
        if b=1 then continue;
        writeln(s[0]);break;
      end;
end.