Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.