Question

Помогите написать программу на паскаль, которая переводит из десятичной системы в двоичную только 8 класс максимально лёгкую​

Answer 1

uses school;

var num:integer;

begin

read(num);

write(school.Bin(num));

end.

Answer 2

Конечно, вот простая программа на Pascal, которая переводит число из десятичной системы в двоичную систему:

pascalCopy code
program DecimalToBinary;
var
  decimalNumber, binaryNumber, remainder: integer;
begin
  writeln('Введите десятичное число: ');
  readln(decimalNumber);

  binaryNumber := 0;
  remainder := 0;
  repeat
    binaryNumber := binaryNumber + (decimalNumber mod 2) * trunc(power(10, remainder));
    decimalNumber := decimalNumber div 2;
    remainder := remainder + 1;
  until decimalNumber = 0;

  writeln('Число в двоичной системе: ', binaryNumber);
end.

Сначала программа запрашивает у пользователя десятичное число. Затем она выполняет деление числа на 2 и записывает остаток в двоичное представление до тех пор, пока десятичное число не станет равным 0. Результат выводится в виде двоичного числа.