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

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

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

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

@anmartex · 12.03.2013, 06:10

Pascal

var
   first, second: string;
   chars: set of char;
   i: integer;
 
begin
   write('Input first word: ');
   readln(first);
   write('Input second word: ');
   readln(second);
 
   for i:= 1 to length(second) do
      chars := chars + [second[i]];
 
   for i:= 1 to length(first) do
      if (first[i] in chars) then
         write('yes ')
      else
         write('no ');
end.

Название: image.PNG
Просмотров: 44

Размер: 3.1 Кб

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

Опции темы

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

Решение