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

Question

Информатика

Никитьич

24 июля, 17:52

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

+5

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