Задать вопрос
29 апреля, 00:38

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

входные данные

5

выходные данные

101

входные данные

-14

выходные данные

-1110

+1
Ответы (1)
  1. 29 апреля, 01:58
    0
    Procedure Dec2Bin (n: longint; var s: string) ;

    var

    z: string;

    d: char;

    begin

    s : = '';

    if n < 0 then z : = '-' else z : = '';

    n : = abs (n) ;

    while n > 0 do

    begin

    if (n mod 2) = 0 then d : = '0' else d : = '1';

    s : = d + s;

    n : = n div 2

    end;

    s : = z + s;

    if s = '' then s : = '0'

    end;

    var

    n: longint;

    s: string;

    begin

    Write ('Введите целое число: ') ; Readln (n) ;

    Dec2Bin (n, s) ;

    Writeln (s)

    end.

    Тестовое решение:

    Введите целое число: - 14

    -1110
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в двоичный код. Используйте процедуру входные ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы