Дан фрагмент программы:
While x>0 do begin
c:=x mod 2;
x:=x div 2;
Write(c);
end;
Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
Ответы на вопрос
Ответил elenaklon
0
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.
Новые вопросы