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

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.

Comments

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.