Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай: Program Proverka; uses CRT; var x:real; Begin clrscr; writeln ('Введите X'); readln (x); IF x<0 then writeln ('Отрицательное число x=' , x:5:2) Else Begin IF x>0 then writeln ('Положительное число x=' , x:5:2) Else writeln ('Вы выбрали неверное значение'); End; readln; End.
si0000
12.12.2022
Обратный код от A это A' = 2^8 - 1 - A = Const - A Схема вычитания путем суммы обратных кодов справедлива т.к.: (A - B)' = A' + B'' = (Const - A) + (Const - (Const - B)) = Const - (A - B)
самый левый бит - это бит знака. если там 1 - то число отрицательное. Например, пусть дан обратный код: F' = 0010 1010, инвертируем биты, получаем: F = 1101 0101 - смотрим на левую цифру (старший разряд) он равен 1, значит приписываем минус: F = - (0101 0101) = -85
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;
End.