Для решения данных задач на языке программирования Turbo Pascal, необходимо использовать массивы для хранения соответствий между цифрами и их названиями, а также между номерами месяцев и их названиями на английском языке.
- Вывод названия цифры на английском языке:
Для этой задачи можно создать массив строк, где индекс каждого элемента соответствует цифре, а значение элемента — это название цифры на английском языке.
Пример программы:
program DigitToEnglish;
var
digit: integer;
digitNames: array[0.9] of string;
begin
// Заполнение массива названиями цифр
digitNames[0] := 'zero';
digitNames[1] := 'one';
digitNames[2] := 'two';
digitNames[3] := 'three';
digitNames[4] := 'four';
digitNames[5] := 'five';
digitNames[6] := 'six';
digitNames[7] := 'seven';
digitNames[8] := 'eight';
digitNames[9] := 'nine';
// Ввод цифры
writeln('Enter a digit (0-9): ');
readln(digit);
// Проверка на корректность введенной цифры
if (digit >= 0) and (digit = 1) and (month