Перевести в числа 64 и 101 в двоичную систему счисления и обратно.

Question

Информатика: Перевести в числа 64 и 101 в двоичную систему счисления и обратно.

helsey · Accepted Answer

ответ: Pascal последняя версия, задача только на хз почему 1 неправильно

program C1;

var

N, x: int64;

begin

read(x);

read(N);

if (N > 0) and (N <= abs(x)) then

x := x + n

else if (N > 0) and (N >= abs(x)) then

x := x + n + 1;

if (N < 0) and (abs(N) <= abs(x)) then

x := x - abs(N)

else

if (N < 0) and (abs(N) >= abs(x)) then

x := x - abs(N) - 1;

if x <> 0 then

writeln(x)

else begin

if N > x then

x := x +1

else

x := x -1;

writeln(x);

end;

end.

Объяснение: