Решить с помощь множеств

[joker528999]

Пусть данекст, заканчивающийся точкой. Текст состоит из слов, разделенны пробелами. Слово представляет последовательность латинских букв. Напечатать те слова, в которые не входит ни одна из букв первого слова.

Помогите написать код пожалуйста

[ZX Spectrum-128]

Выдернуть первое слово
Занести символы этого слова во множество
И пробежаться циклом со второго слова до конца
Если символы слова не входят во множество , то распечатать

[Arigato]

Сообщение от joker528999

Помогите написать код пожалуйста

Запускаем Паскаль, берем клавиатуру и тыкаем пальцами в соответствующие кнопки. Как еще помочь написать, я не представляю? Разве что если к вам подъехать и тыкать в кнопки вашими пальцами.

[Unique_Maks]

Сообщение от Arigato

тыкать в кнопки вашими пальцами.

hard programming
Автор, попробуйте слепить что-нибудь по алгоритму написанному во втором посте и показать наработки тут. Шансы на помощь возрастут.

[Mad_Cat]

var W:array [1..100] of string[80];
s:string;
c:set of char;k,i,j:integer;
f:boolean;
begin
c:=[];
s:='Hello world tc.';
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
if s[length(s)]='.' then delete(s,length(s),1);
s:=s+' ';
k:=1;
for i:=1 to 100 do
W[i]:='';
for i:=1 to length(s) do
if s[i]=' ' then inc(k)
else W[k]:=W[k]+s[i];
k:=k-1;
for i:=1 to length(w[1]) do
c:=c+[W[1][i]];
for i:=2 to k do
begin
f:=false;
for j:=1 to length(W[i])do
if W[i][j] in c then begin f:=true;break;end;
if not f then writeln(W[i]);
end;
end.