var s1,s2,str:string;но верно работает только если нужное слово стоит в начале первого предложения. не могу понять в чем ошибка((
i,x:integer;
begin
write ('vvedite predlozenie 1: ');
readln (s1);
write ('vvedite predlozenie 2: ');
readln (s2);
x:=1;
for i:=1 to Length(s1) do
if s1[i]=' ' then
begin
str:=copy(s1,x,i-1);
if pos(str,s2)<>0 then writeln (str);
end;
x:=i+1;
readln;
end.
строки, Найти множество всех слов, которые встречаются в каждом из двух заданн |