• Напишите программу, которая заменяет во всей строке одну последовательность символов на другую.

    Пример:

    Введите строку:

    (X > 0) and (Y < X) and (Z > Y) and (Z <> 5)

    Что меняем: and

    Чем заменить: &

    Результат

    (X > 0) & (Y < X) & (Z > Y) & (Z <> 5)

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var s:string; Writeln('Введите строку:'); Readln(s);  var s1:=ReadlnString('Что меняем:');  var s2:=ReadlnString('Чем заменить:');  s:=s.Replace(s1,s2);  Writeln('Результат'); Writeln(s)end.ПримерВведите строку:(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)Что меняем: andЧем заменить: &Результат(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)
    • Автор:

      olliejdcl
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years