Задать вопрос
7 мая, 12:56

Дан фрагмент программы:

While x>0 do begin

c:=x mod 2;

x:=x div 2;

Write (c) ;

end;

Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.

+3
Ответы (1)
  1. 7 мая, 15:31
    0
    var x, c, p:integer;

    begin

    p:=1;

    readln (x) ;

    while x>0 do begin

    c:=c + x mod 2*p;

    x:=x div 2;

    p:=p*10

    end;

    write (c)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан фрагмент программы: While x>0 do begin c:=x mod 2; x:=x div 2; Write (c) ; end; Допишите его до самостоятельной программы, выполняющей ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике