Question

Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру. Программа должна вывести двоичное представление переданного её числа. Примеры входные данные 5 выходные данные 101 входные данные -14 выходные данные -1110

Answer 1

Var n:integer; s:string;
procedure bin(n:integer; var s:string);
var i:integer; c:string;
begin
s:='';
while n>0 do
  begin
 STR(n mod 2,c);
 s:=c+s;
 n:=n div 2;
 end;
end;
begin
write('n='); readln(n);
bin(abs(n),s);
if n<0 then s:='-'+s;
writeln(s);
end.

Пример:
n=-14
-1110

Answer 2

Вот программа на Python, которая переводит переданное целое число в двоичный код с использованием процедуры:

pythonCopy code
def decimal_to_binary(n):
    if n >= 0:
        binary = bin(n)[2:]
    else:
        binary = '-' + bin(-n)[2:]
    return binary

# Ввод числа с клавиатуры
number = int(input("Введите целое число: "))

# Переводим число в двоичный код и выводим результат
binary_representation = decimal_to_binary(number)
print("Двоичное представление числа:", binary_representation)

Вы можете запустить эту программу и ввести целое число. Она переведет его в двоичный код и выведет результат на экране.