Дан фрагмент программы: while x 0 do begin c: =x - вопрос №9551312022 от egmoisee 20.11.2021 01:29

Question

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

egmoisee · Answer

var x,c,p:integer;beginp:=1;readln(x);while x 0 do beginc:=c + x mod 2*p;x:=x div 2;p:=p*10end;write(c)end....