Question

Помогите пожалуйста! Пользователь вводит число , если это число равно 1 , то это январь, если равно 2 , то это февраль, если 3 , то это март.... и т.д. 12 месяцев

Answer 1

Var  month:integer; begin  writeln('Введите номер месяца(1-12): ');  readln(month);    case month 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;end.