Question

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

Answer 1

Var s : String;
Begin
  Repeat
    Readln(s);
  Until Length(s)=4;
 Writeln((Ord(s[1])-Ord('0'))*8+(Ord(s[2])-Ord('0'))*4+(Ord(s[3])-Ord('0'))*2+(Ord(s[4])-Ord('0')));
end.

Answer 2

Для перевода четырехзначного двоичного числа в десятичную систему счисления можно использовать следующую линейную программу:

sqlCopy code
// Входные данные - четырехзначное двоичное число (строка из 0 и 1)
input binary

// Инициализируем переменную для хранения результата
var result = 0

// Вычисляем значение для каждого разряда, начиная с младшего
result += binary[3] * 1
result += binary[2] * 2
result += binary[1] * 4
result += binary[0] * 8

// Выводим результат
output result

Для работы программы нужно передать на вход четырехзначное двоичное число в виде строки из символов '0' и '1'. Результат будет выведен на экран в виде десятичного числа.