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

While x>0 do begin

c:=x mod 2;

x:=x div 2;

Write (c) ;

end;

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

Question

Корасон

23 июня, 14:33

+5

Ответы (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.