uses crt;
var s1,s2,temp,res:string;
begin
readln(s1);
readln(s2);
res:='';
temp:=copy(s1,1,pos(' ',s1)-1);
while temp<>'' do
begin
if pos(temp,s2)<>0 then res:=res+' '+temp;
temp:='';
s1:=copy(s1,pos(' ',s1)+1,length(s1)-pos(' ',s1));
if pos(' ',s1)<>0 then
temp:=copy(s1,1,pos(' ',s1)-1)
else
begin
temp:=copy(s1,1,length(s1));
if pos(temp,s2)<>0 then res:=res+' '+temp;
break;
end;
end;
writeln(res);
readln;
end.
Задачка по множествам
Помогите пожалуйста, я в этой теме вообще плохо шарю.
Задача:
Найти множество всех слов, которые встречаются в каждом из двух заданных предложений.
Задача вроде простая, но у меня вообще не как не получается, а уже скоро сдавать надо. Я вообще в панике.
Помогите кто сможет. Заранее спасибо!!!!
Задача:
Найти множество всех слов, которые встречаются в каждом из двух заданных предложений.
Задача вроде простая, но у меня вообще не как не получается, а уже скоро сдавать надо. Я вообще в панике.
Помогите кто сможет. Заранее спасибо!!!!
Что такое множество, знаешь? На алгоритмическом уровне?
Знаю, но плохо. А сдавать уже нужно
2Sevelin
[COLOR=red]почему язык не написал?[/COLOR]
[COLOR=red]почему язык не написал?[/COLOR]
Извеняюсь. Заматался с этими задачами, уже бошка хреново соображает. А вообще это программа на Delphi 6 надо сделать. А у нас препод весёлый, он сам не фига не соображает, а нам приходиться самостоятельно всё изучать. По этому я и не успеваю с задачами. А зачёт без них не ставят.
Спасибо за код, пойду пробовать.
Спасибо за код, пойду пробовать.