Написать программу ** Паскале Дана строка текста напечатать все слова,заканчивающиеся **...

Question

Написать программу на Паскале
Дана строка текста напечатать все слова,заканчивающиеся на "ов".
Если можно,то напишите программу с помощью функции Pos

Comments

Как слова отделяются друг от друга?

---

знаков препинания в строке нет

---

Когда нет определения, что такое слово, бессмысленно спрашивать о разделителях - какие они, колько подряд и т.д.

---

слово-набор букв.

---

в паскале ж вроде есть регекспы, вот самое оно для решения

---

Регэкспы не в Паскале, а в библиотеке .NET

---

Только тут же Рos() хотят.

Answer 1

Считается, что слова отделяются друг от друга пробелом.
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.

Пример:
Введите строку:
пример кров слово шов олово ров
кров
шов
ров