Напишите программу на PascalABC.NET, которая выводит на экран цифру, находящуюся в средней позиции натурального числа

Название: Программа на PascalABC.NET для вывода цифры в средней позиции числа

Объяснение:
Чтобы решить данную задачу, мы должны определить, как найти цифру в средней позиции натурального числа с нечетным количеством цифр.

Алгоритм решения следующий:
1. Пользователь вводит натуральное число с нечетным количеством цифр.
2. Находим количество цифр в числе с помощью функции Length.
3. Рассчитываем индекс цифры в средней позиции числа, используя формулу (длина числа + 1) / 2.
4. Используя оператор индексации строки, извлекаем цифру из числа по найденному индексу.
5. Выводим найденную цифру на экран.

Пример:

program FindMiddleDigit;

var

  num: string;

  middleIndex: integer;

begin

  write("Введите натуральное число: ");

  readln(num);

  

  middleIndex := (Length(num) + 1) div 2;

  writeln("Цифра в средней позиции: ", num[middleIndex]);

end.

Совет:
Для лучшего понимания задачи и уверенности в правильности решения, вы можете провести ручные вычисления на бумаге для примеров чисел с разным количеством цифр и убедиться, что пошаговое решение программы соответствует ожидаемому результату.

Дополнительное упражнение:
Напишите программу на PascalABC.NET, которая будет находить и выводить цифру в средней позиции натурального числа с нечетным количеством цифр. Попробуйте выполнить программу для следующих чисел: 123456789, 987654321, 246813579.