Выполнить задачи в Паскале:

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

2.3. Удалить предлоги "с" в строке.

Question

Информатика

Русина

20 июля, 21:49

Выполнить задачи в Паскале:

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

2.3. Удалить предлоги "с" в строке.

+1

Ответы (1)

Знаете ответ на вопрос?

Ярослава · 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.

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

Выполнить задачи в Паскале:

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

2.3. Удалить предлоги "с" в строке.