задача на множества, вывести слова, в которых нет букв первого слова Опции

[DruiD]

Дан текст, который состоит из слов, между которыми стоит промежуток. Напечатать те слова, в которых отсутствуют буквы первого слова.

[DruiD]

Самое простое что я могу предложить - так это добавить пробел к строке: s:=s+' '
Но буду рад выслушать твои варианты.

[Lapp]

Самое простое что я могу предложить - так это добавить пробел к строке: s:=s+' '
Но буду рад выслушать твои варианты.

Может быть это и самое простое (хотя я бы советовал добавлять пробел только в случае, когда его там нет, чтобы избежать вывода пустого слова между пробелами: if s[Length(s)]<>' ' then s:=s+' ' ), но есть одно маленькое "но" - программа все еще будет работать неправильно, если исходная строка s заполнена до конца, то есть имеет длину 255 символов. Я понимаю, что это достаточно редкий случай, но на месте твоего препа я бы не поленился и специально ввел бы строку именно такой длины на приеме задания..

Мой вариант: удлинни цикл на единицу и введи проверку на конец строки перед проверкой на пробел. То есть так:

  for y:=i+1 to length(s)+1 do
  if (y>Length(s))or(s[y]=' ') then

Согласен?