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

Question

Информатика

Витуня

8 января, 02:46

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

+3

Ответы (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