Задача. Заменить в тексте слово «ноябрь» на «декабрь». Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.
var s:string;
    ns:integer;
begin
  readln(s);
  ns:=pos('... ',s);{ищем 
слово, которое будем заменять}
  while ns>0 do {повторяем действия пока в тексте есть
это слово}
             begin
             ... {удалеям
слово}
           
 ...('...',s,...);{вставляем новое слово}
            ...{ищем снова слово}   
         
  end;
writeln(s);       
                  
end.
СОСТАВЛЕНИЕ ПРОГРАММ
Задание 2. Заменить в тексте слово «ноябрь» на «декабрь». Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.
Задание 4. Заменить в тексте все числа 5 на «пять» и все 7 на «семь»..
Задание 5. Заменить в тексте «осень» на «зима». Учитывая, что слова могут быть записаны с заглавной и строчной букв.
 
просто топ))))))))))))))))
ОтветитьУдалить