Задать вопрос
20 октября, 22:21

Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 2 с. с.

Это Паскаль!

+3
Ответы (1)
  1. 20 октября, 22:50
    0
    Var

    n, n1:longint;

    s:string;

    begin

    Write ('Введите натуральное число: ') ; Readln (n) ;

    s : = ''; n1:=n;

    while n > 0 do

    begin

    if Odd (n) then s:='1'+s else s:='0'+s;

    n : = n div 2

    end;

    Writeln (n1,' (10) = ', s,' (2) ')

    end.

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

    Введите натуральное число: 349

    349 (10) = 101011101 (2)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Вводится целое положительное число. Перевести его в двоичную систему счисления. Вывести результат в 2 с. с. Это Паскаль! ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы