дана строчка. определииь сколько раз в нее заходит подстрока ель. Ввести

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

Задать свой вопрос
Варновицкая Олеся
Pascal abc
1 ответ
Var s,t:string; k:integer;
begin
writeln('Введите строчку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)gt;0 do
 begin
 delete(t,pos('ЕЛЬ',t),3);
 k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
Введите строчку:
сосна ель ёлка ЕЛЬ берёза
k = 2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт