Question

Нужно написать программу на Паскале для перевода натурального числа из двоичной системы в десятичную (в двоичном числе не более 10 цифр).

Answer 1

Прикрепил скрин программы

Answer 2

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

```
program BinaryToDecimalConverter;

var
binaryNumber, decimalNumber, powerOfTwo, digit: Integer;

begin
// Ввод двоичного числа
write('Введите двоичное число (не более 10 цифр): ');
readln(binaryNumber);

// Инициализация переменных
decimalNumber := 0;
powerOfTwo := 1;

// Перевод из двоичной в десятичную систему
while binaryNumber > 0 do
begin
digit := binaryNumber mod 10; // Получение последней цифры двоичного числа
binaryNumber := binaryNumber div 10; // Удаление последней цифры двоичного числа

decimalNumber := decimalNumber + digit * powerOfTwo; // Добавление в десятичное число

powerOfTwo := powerOfTwo * 2; // Увеличение степени двойки
end;

// Вывод результата
writeln('Десятичное число: ', decimalNumber);

readln;
end.
```

В этой программе пользователь сначала должен ввести двоичное число (не более 10 цифр). Затем программа последовательно с помощью цикла while раскладывает число на цифры и умножает их на соответствующую степень двойки, плюсуя результат к переменной decimalNumber. В конце программа выводит полученное десятичное число.

Например, если пользователь введет двоичное число "1010", программа выведет десятичное число "10".