Решение задач по теме "Оператор выбора Case в Pascal"

Решение задачи №4

program four;
var x:integer;
begin
     writeln('Введите номер месяца');
     readln(x);
     case x of
          1,3,5,7,8,10,12: writeln('31 день');
          2: writeln('28 дней');
          4,6,9,11: writeln('30 дней');
     end;
end.

Назад