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.
Объяснение:
