Выполнить задачи в Паскале: 2.2. Подсчитать количество предлогов "в" в данном...

Question

Выполнить задачи в Паскале:
2.2. Подсчитать количество предлогов "в" в данном предложении.
2.3. Удалить предлоги "с" в строке.

Answer 1

Var s:string;i,n,k:integer;
begin
s:= 'Вот это в задание требует в предлогов в данном в предложении';
n:= length(s);
for i:= 2 to n-1 do begin
if (s[i-1]=' ') and (s[i]= 'в') and (s[i+1]=' ')  then begin writeln(i,s[i]:3);
k:= k +1;end;end;
write(k);end.

Comments

Программа работает некорректно.