Дана строка. определииь сколько раз в нее входит подстрока "ель". Ввести с клавиатуры строку символов

Question

Информатика

Игорька

16 декабря, 09:38

Дана строка. определииь сколько раз в нее входит подстрока "ель". Ввести с клавиатуры строку символов

+2

Ответы (1)

Знаете ответ?

Нимфодора · Answer 1

Var s, t:string; k:integer;

begin

writeln ('Введите строку:') ;

readln (s) ;

t:=UpperCase (s) ;

k:=0;

while pos ('ЕЛЬ', t) >0 do

begin

delete (t, pos ('ЕЛЬ', t),3) ;

k:=k+1;

end;

writeln ('k = ', k) ;

end.

Пример:

Введите строку:

сосна ель ёлка ЕЛЬ берёза

k = 2