составить процедуру, возвращающую значение единица, если начальный символ ноль, и значение ноль, если входной символ - единица. При помощи процедуры заменить в заданной строке все единицы нулями, а все нули - единицами. pascal СРОЧНО
Ответы
Ответ дал:
1
Процедура InvertString принимает на вход строку s и меняет в ней все единицы на нули, а нули на единицы. Она использует функцию InvertValue, которая возвращает значение единица, если на вход передан символ '0', значение ноль, если на вход передан символ '1', и -1 в других случаях. После этого InvertString конвертирует результат InvertValue обратно в символ с помощью функции Char и присваивает его соответствующему символу в строке s.
Приложения:
![](https://st.uroker.com/files/253/25323ca8450225e8935c338cc89b8aea.png)
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
7 лет назад