Question

Сделать как в паскале, решать через case по примеру в закрепе.
Дам 25 баллов за правильный ответ!

Случайным образом вводится номер месяца, выдать его название

Answer 1

program ZN;

var month:integer;

begin

write('Введите номер месяца: ');

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.