Дан фрагмент программы:While x>0 do beginc:=x mod 2;x:=x div 2;Write(c);end;Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
Дан фрагмент программы:While x>0 do beginc:=x mod 2;x:=x div 2;Write(c);end;Допишите его до самостоятельной программы, выполняющей перевод чисел из десятичной системы счисления в двоичную.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program DecimalToBinary;
var
x, c: integer;
begin
Write('Enter a number in decimal system: ');
Readln(x);
Write('Binary representation: ');
while x > 0 do begin
c := x mod 2;
x := x div 2;
Write(c);
end;
WriteLn; // переход на новую строку для красоты вывода
end.