написать программу вычисления слогов "во" в предложении.паскаль

Question

Денис · Accepted Answer

Find := 'во'; 
Kol := 0; 
while Pos(Find, Str) > 0 do 
 begin 
 Inc(Kol); 
 Delete(Str, Pos(Find, Str), Length(Find)); 
 end;

Собит · Answer

Уважаемая Леся, я мог бы помочь Вам со всеми этими программами за пару десятков минут, но у меня очень плохо с деньгами, поэтому позволить себе делать бесплатно я, к сожалению, не могу :( Что прикажете делать?

Игорь · Answer

Я же написал уже!