Question

Написать программу в любой программе(лучше всего на сишарп), которая преобразует целое положительное десятичное число (число разрядов не более 6) в его эквивалент в 2 систему счисления. программа должна вводить число в 10 систему счисления и печатать результат в 2 системе счисления. например: введите целое число в 10c/c: 12 двоичный эквивалент равен 1100 незначащие нули должны подавляться. должен быть контроль вводимых цифр. разрешены цифры 0 - 9.

Answer 1

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

function Dec2Bin(x:string):string;
begin
  var s:=x.MatchValue('\d+');
  if s.Length=0 then begin
    Writeln('Не найдено НИ ОДНОЙ цифры!');
    Result:=''
    end
  else begin
    var t:=s.ToInteger;
    var r:string:='';
    while t>=2 do (r,t):=(t mod 2+r,t shr 1);
    Result:=t+r
    end
end;

begin
  Writeln(Dec2Bin(ReadlnString('n=')))
end.