Question

Дан фрагмент программы:
While x>0 do begin
c:=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.