Строка: Заменить в строке все слова "это" на слово "то". Подсчитать количество этих слов.

@dimactek · Регистрация: 25.09.2012

Author24 — интернет-сервис помощи студентам

Дана строка символов. Заменить в строке все слова "это" на слово "то". Подсчитать количество этих слов.

@CodeR · 20.03.2013, 11:56

Pascal

Const mn=[' ',',','.','!','?'];
Var s,s1,s2:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s1:='';s2:='';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if s1='это' then
       Begin
         s2:=s2+'то'+s[i];
         inc(k);
       End
       else s2:=s2+s1+s[i];
       s1:='';
     End;
    writeln('Полученная строка = ',s2);
    writeln('Таких слов = ',k);
    readln;
End.

@dimactek · 02.04.2013, 13:58 **[ТС]**

Спасибо, но хотелось бы получить, более простой способ решения, без всяких заморочек, просто найти слово это (будет отделено пробелами) и удалить "э"

@dimactek 2 / 2 / 0 Регистрация: 25.09.2012 Сообщений: 58
		1
	Строка: Заменить в строке все слова "это" на слово "то". Подсчитать количество этих слов. 19.03.2013, 13:19. Показов 2363. Ответов 2 Метки нет (Все метки) Дана строка символов. Заменить в строке все слова "это" на слово "то". Подсчитать количество этих слов. 0

@dimactek 2 / 2 / 0 Регистрация: 25.09.2012 Сообщений: 58
	02.04.2013, 13:58 [ТС]	3
	Спасибо, но хотелось бы получить, более простой способ решения, без всяких заморочек, просто найти слово это (будет отделено пробелами) и удалить "э" 0

Строка: Заменить в строке все слова "это" на слово "то". Подсчитать количество этих слов.

Решение