Считается, что слова отделяются друг от друга пробелом. var s:string; p:integer; begin writeln('Введите строку:'); readln(s); s:=s+' '; p:=pos(' ',s); while p>0 do begin if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1)); delete(s,1,p); p:=pos(' ',s); end; end.
Пример: Введите строку: пример кров слово шов олово ров кров шов ров
Answers & Comments
Verified answer
Считается, что слова отделяются друг от друга пробелом.var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
p:=pos(' ',s);
while p>0 do
begin
if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1));
delete(s,1,p);
p:=pos(' ',s);
end;
end.
Пример:
Введите строку:
пример кров слово шов олово ров
кров
шов
ров