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

@Qantrox1 · Регистрация: 18.03.2012

Студворк — интернет-сервис помощи студентам

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

@CodeR · 16.03.2013, 11:00

Pascal

Var s1,s2:string;
    mn:set of char;
    i:byte;
Begin
    write('Введите первое слово: ');readln(s1);
    write('Введите второе слово: ');readln(s2);
    mn:=[];
    For i:=1 to Length(s1) do
    Begin
     if not(s1[i] in mn) then
      if Pos(s1[i],s2)>0 then write('да ')
        else write('нет ');
      mn:=mn+[s1[i]];
    End;
    readln;
End.

@Qantrox1 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 20
		1
	Для каждой буквы первого слова определить, входит ли она во второе слово 11.03.2013, 21:30. Показов 1283. Ответов 1 Метки нет (Все метки) Даны два слова. Для каждой буквы первого слова (повторяющиеся буквы не рассматривать) определить, входит ли она во второе слово. Например, если заданные слова "процессор" и "информация", то для букв первого из них ответом должно быть: "нет да да да нет нет" 0

Опции темы

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

Решение