Developing.ru

народ помогите, а то я чето туплю

пусть даны три слова. необходимо определить буквы, которые встречаются во всех 3 словах (для нахождения множества символов, образующих слово, используйте процедуру).

заранее спасибо

function isin2and3(c:char):boolean;
begin isin2and3:=pos(c,s2)*pos(c,s2)>0; end;

for i:=1 to length(s1) do
if isin2and3(s1) then write(s);