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

nastakim68 nastakim68    2   02.10.2019 05:20    3

Ответы
davidpolshin davidpolshin  10.09.2020 22:27

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика