Question

Помогите пожалуйста написать программу через Паскаль

Answer 1

Ответ:

A:

var

 s: string;

 i: integer;

begin

 Write('Введите строку: ');

 ReadLn(s);

 for i := 1 to length(s) do

 begin

   if s[i] = '.' then s[i] := '0' else

      if (s[i] = 'x') or (s[i] = 'X') then s[i] := '1' else

      begin

        s := 'Ошибка формата';

        break;

      end;

 end;

 WriteLn('Двоичный код: ', s);

end.

B:

var

 s: string;

 i: integer;

begin

 Write('Введите строку: ');

 ReadLn(s);

 for i := 1 to length(s) do

   if s[i] = '0' then s[i] := '1' else if s[i] = '1' then s[i] := '0';

 WriteLn('Инверсия: ', s);

end.

Объяснение: