Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит...

Question

Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. Повторяющиеся буквы первого слова не рассматривать. Например, если заданные слова «процессор» и информация», то для букв первого из них ответом должно быть: «нет да да да нет нет». это в паскале))

Answer 1

var
s,c,k:string;
i:integer;
begin
write ('Введите первое слово: ');
readln(s);
write ('Введите второе слово: ');
readln(c);
while length(s)<>0 do
begin
  k:=s[1];
  delete(s,1,1);
  while pos(k,s)<>0 do
  delete(s,pos(k,s),1);
  if pos(k,c)=0 then write('нет ')
                else write('да ');
end;
end.