Question

Помогите пожалуйста, буду благодарна очень Написать программу , которая выполняет в ней все нули на единицы и наоборот. Пример: Введите строку : 10011010 Инверсия : 01100101 Паскаль

Answer 1

Ответ:

PascalABC.NET 3.6.2

begin

 var a := ReadString().ToCharArray;

 a.Transform(p -> p = '0' ? '1' : '0');

 a.Println;

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет инверсию битов в заданной строке:

pascalCopy code
program InvertBits;
var
  inputStr, invertedStr: string;
  i: integer;
begin
  // Введите строку
  Write('Введите строку: ');
  Readln(inputStr);

  // Проверка на правильность ввода
  for i := 1 to Length(inputStr) do
  begin
    if (inputStr[i] <> '0') and (inputStr[i] <> '1') then
    begin
      writeln('Ошибка: Введите только символы "0" и "1".');
      Exit;
    end;
  end;

  // Выполнение инверсии
  invertedStr := '';
  for i := 1 to Length(inputStr) do
  begin
    if inputStr[i] = '0' then
      invertedStr := invertedStr + '1'
    else
      invertedStr := invertedStr + '0';
  end;

  // Вывод результата инверсии
  writeln('Инверсия: ', invertedStr);

  Readln;
end.

Эта программа запрашивает у пользователя ввод строки, проверяет, что введенные символы являются только "0" и "1", а затем выполняет инверсию битов и выводит результат.