дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. определить количество дней в этом месяце для невисо- косного года. case 10 case10. робот может перемещаться в четырех направлениях («с» — север, «з» — запад, «ю» — юг, «в» — восток) и принимать три цифровые ко- манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот направо. дан символ c — исходное направление робота и целое число n — посланная ему команда. вывести направление робота после выполне- ния полученной команды
varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.
Над второй еще подумаю, как более короткое решение записать.