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

While x>0 do begin

c:=x mod 2;

x:=x div 2;

Write (c) ;

end;

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

Question

Корасон

1 февраля, 17:51

+3

Ответы (1)

Знаете ответ на вопрос?

Етелла · Answer 1

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.