Нужно написать программу в Pascal: пользователь вводит число в десятичной системе, а программа должна перевести это число в двуичный код. Желательно сделать 1 программу простой, с использованием if, div, mod, ну и циклы если надо,кроме цикла repeat, например пользователь ввёл 5 а система перевела в двуичный код 101

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program DecimalToBinary;
var
decimalNumber, binaryNumber, remainder: Integer;
begin
writeln('Введите число в десятичной системе: ');
readln(decimalNumber);
binaryNumber := 0;
remainder := 0;
repeat
remainder := decimalNumber mod 2;
binaryNumber := binaryNumber * 10 + remainder;
decimalNumber := decimalNumber div 2;
until decimalNumber = 0;
writeln('Число в двоичной системе: ', binaryNumber);
end.

Эта программа принимает число в десятичной системе от пользователя, а затем переводит его в двоичную систему и выводит результат.

Например, если пользователь введет число 5, программа выведет: 101.