Question

ПРОГРАММИРОВАНИЕ PascalABC Вводится цифра месяца (от 1 до 12). В зависимости от цифры вывести название месяца. Например, 1 = январь, 5 = май.​

Answer 1

var

 a: integer;

begin

 writeln('Введите число от 1 до 12:');

 readln(a);

 case a of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: writeln('Июль');

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 end;

end.

Answer 2

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

pascalCopy code
program MonthName;
var
  monthNumber: integer;
begin
  write('Введите цифру месяца (от 1 до 12): ');
  readln(monthNumber);

  case monthNumber of
    1: writeln('Январь');
    2: writeln('Февраль');
    3: writeln('Март');
    4: writeln('Апрель');
    5: writeln('Май');
    6: writeln('Июнь');
    7: writeln('Июль');
    8: writeln('Август');
    9: writeln('Сентябрь');
    10: writeln('Октябрь');
    11: writeln('Ноябрь');
    12: writeln('Декабрь');
    else
      writeln('Неверный номер месяца');
  end;

  readln; // Чтобы окно консоли не закрылось сразу
end.

Эта программа сначала запрашивает у пользователя цифру месяца, затем использует оператор case для определения соответствующего названия месяца и выводит его на экран. Если введенное число не соответствует ни одному месяцу, программа выведет сообщение "Неверный номер месяца".