Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
1100101(2) = 2^6+2^5+2^2+1=64+32+4+1=101(10)/
дополнительный код или представление числа -наиболее распространенный способ представления ОТРИЦАТЕЛЬНЫХ ЦЕЛЫХ ЧИСЕЛ.
1 символ - 5 бит. 145 символов - 725 бит