Дан фрагмент программы:
While x>0 do begin
c:=x mod 2;
x:=x div 2;
Write (c) ;
end;
Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
While x>0 do begin
c:=x mod 2;
x:=x div 2;
Write (c) ;
end;
Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
killlmee23321
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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
