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.