Написать программу, которая переводит переданное её целое число в двоичный код

@DisKo · Регистрация: 29.03.2015

Студворк — интернет-сервис помощи студентам

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

Входные данные
Входная строка содержит целое число N .

Выходные данные
Программа должна вывести двоичное представление переданного её числа.

Примеры
входные данные
5
выходные данные
101
входные данные
-14
выходные данные
-1110
Подскажите пожалуйста в моей программе как сделать так что бы при вводе 0 выводило 0, а то никак сделать не могу, заранее спасибо.
Вот сама программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 var n:integer;
procedure mango;
var k:string;
begin
if (n>0) or (n=0) then begin
while n<>0 do begin 
if n mod 2=0 then k:='0'+k else k:='1'+k; n:=n div 2; end;
write(k); 
end;
if n<0 then begin
while n<>0 do begin
if n mod 2=0 then k:='0'+k else k:='1'+k; n:=n div 2; end;
write('-',k);end;
end;
begin
readln(n);
mango;
end.

@APALoff · 29.03.2015, 21:47

Программа перевода из девятеричной системы счисления в троичную

@JuriiMW · 30.03.2015, 05:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  S : String;
  
procedure dec2bin(N : Integer);
var
  C : String[1];
begin
  if N < 0 then
    begin
      N := Abs(N);
      C := '-';
    end
  else
    C := '';
  
  S := '';
  repeat
    S := (odd(N) ? '1' : '0') + S;
    N := N shr 1;
  until N = 0;
  S := C + S;
end;
 
begin
  var N := ReadInteger('Введите целое число: N =');
  dec2bin(N);
  WriteLn('Двоичное представление: ', S);
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	29.03.2015, 21:47
	Программа перевода из девятеричной системы счисления в троичную 0