Помогите пожалуйста)
Нужно написать программу, в которой вводим порядковый номер месяца, а машина выдаёт название месяца и сколько дней в этом месяце.
Решить нужно в Pascal

1

Ответы и объяснения

2012-12-10T10:47:33+00:00

Program zadacha;

Var n:integer;

Begin

Case n of

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

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

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

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

5: writeln('Май 31');

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

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

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

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

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

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

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

End;

End.