Выполнить задачи в Паскале: 2.2. Подсчитать количество предлогов "в" в данном предложении. 2.3. Удалить предлоги "с" в строке.
Answers & Comments
allangarsk
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.
Answers & Comments
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.