Question

составить процедуру, возвращающую значение единица, если начальный символ ноль, и значение ноль, если входной символ - единица. При помощи процедуры заменить в заданной строке все единицы нулями, а все нули - единицами. pascal СРОЧНО

Answer 1

Процедура InvertString принимает на вход строку s и меняет в ней все единицы на нули, а нули на единицы. Она использует функцию InvertValue, которая возвращает значение единица, если на вход передан символ '0', значение ноль, если на вход передан символ '1', и -1 в других случаях. После этого InvertString конвертирует результат InvertValue обратно в символ с помощью функции Char и присваивает его соответствующему символу в строке s.