Question

Написать программу на языке Паскаль АБС. Перевести число из системы счисления с основанием n в десятичную систему счисления. Основание n - 20

Answer 1

Ответ:
n - 418700
Объяснение:

Answer 2

Вот пример программы на языке Паскаль, которая переводит число из системы счисления с основанием n в десятичную систему счисления:

pascalCopy code
program ConvertToDecimal;

var
  numberString: string;
  base, i, power, digit, decimalNumber: integer;

begin
  writeln('Перевод числа из системы счисления в десятичную');
  writeln('==============================================');
  
  // Ввод числа и основания системы счисления
  write('Введите число: ');
  readln(numberString);
  write('Введите основание системы счисления (n): ');
  readln(base);
  
  // Инициализация переменных
  decimalNumber := 0;
  power := 0;
  
  // Перевод числа в десятичную систему счисления
  for i := length(numberString) downto 1 do
  begin
    if numberString[i] >= '0' then
      digit := ord(numberString[i]) - ord('0')
    else
      digit := ord(numberString[i]) - ord('A') + 10;
      
    decimalNumber := decimalNumber + digit * round(power(base, power));
    power := power + 1;
  end;
  
  // Вывод результата
  writeln('Число в десятичной системе счисления: ', decimalNumber);
  
  readln;
end.

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

Обратите внимание, что данная программа поддерживает числа в десятичной системе счисления с основанием от 2 до 36 (цифры от 0 до 9 и буквы A-Z). Если вам нужно использовать основание 20, то программа корректно обработает это.