.Помогите пожалуйста очень безотлагательно.Написать программу в любой программке(лучше всего на

.Помогите пожалуйста очень безотлагательно.Написать программку в хоть какой программе(превосходнее всего на сишарп), которая конвертирует целое положительное десятичное число (число разрядов не более 6) в его эквивалент в 2 систему счисления. Программка обязана вводить число в 10 систему счисления и печатать результат в 2 системе счисления. К примеру:

Введите целое число в 10c/c: 12

Двоичный эквивалент равен 1100

Незначащие нули обязаны подавляться. Обязан быть контроль вводимых цифр. Разрешены числа 0 - 9.

Задать свой вопрос
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 tgt;=2 do (r,t):=(t mod 2+r,t shr 1);
    Result:=t+r
    end
end;

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

Василиса Полникова
Program1.pas(5) : Встречено ',', а ожидалось ')'
Miroslava Trapene
Result:=t+r И В ЭТОЙ СТРОКЕ ТОЖЕ ВЫДАЁТ ОШИБКУProgram1.pas(6) : Встречено 'Result', а ожидалось ')'
Арина Трейтяк
как ее обновить?
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт