Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.