Дан фрагмент программы:While x>0 do beginc:=x mod 2;x:=x div 2;Write(c);end;Допишите его...

Question

Дан фрагмент программы:While x>0 do beginc:=x mod 2;x:=x div 2;Write(c);end;Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.

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.