Задача

6 /8


Замена подстрок в строке

Теория Нажмите, чтобы прочитать/скрыть

Чтобы в Pascal заменить в строке одну подстроку на другую, применяют метод stringReplace()
stringReplace(original, old, new, flag): в строке originalString  подстрока old заменяется на newflag принимает одно из значений rfReplaceAll или rfIgnoreCase, записываемое в квадратных скобках. В первом случае заменяются все вхождения old в originalString, во втором - только первое.

Пример замены в строке в Pascal:
 

phone = '+1-234-567-89-10'

// дефисы меняются на пробелы
edited_phone := stringreplace(phone, '-', ' ', [rfReplaceAll]);
writeln(edited_phone);     // +1 234 567 89 10

// дефисы удаляются
edited_phone := stringreplace(phone, '-', '', [rfReplaceAll]);
writeln(edited_phone);     // +12345678910

// меняется только первый дефис
edited_phone := replace(phone, '-', '', [rfIgnoreCase]);
writeln(edited_phone);     // +1234-567-89-10

Задача

Дана строка. Замените в этой строке все цифры 1 на слово one.

Входные данные

Вводится строка.

Выходные данные

Выведите ответ на задачу.

Примеры
Входные данные Выходные данные
1 1+1=2 one+one=2



time 1000 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
 Кол-во
Free Pascal2
PascalABC6
Комментарий учителя