Задачи по программированию, помогите решить)

1) В заданом тексте все частицы "не" заменить на "ни".

2) Сколько раз в тексте встречается предлог "в".

Задача 1
var
s: string;
i: integer;
begin
readln(s);
for i:=2 to length(s)-2 do
 if (s[i-1]+s[i]+s[i+1]+s[i+2]= не ) then s[i+1]:=и
  else if ((s[i-1]+s[i]+s[i+1]=не ) and (i=2)) then s[i]:=и
   else if ((s[i]+s[i+1]+s[i+2]= не) and (i=length(s)-2)) then s[i+2]:=и;
write(s);
end.

Задача 2
var
s: string;
i, k: integer;
begin
readln(s);
for i:=2 to length(s)-1 do
 if s[i-1]+s[i]+s[i+1]= в then inc(k)
  else if ((s[i-1]+s[i]=В ) or (s[i-1]+s[i]=в )) and (i=2) then inc(k);
write(k);
end.

Если есть вопросы, пишите в ЛС :)

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.