Ввести номер месяца и вывести кол-во дней в нем и число ошибок при вводе

Ввести номер месяца и вывести кол-во дней в нем и число ошибок при вводе
Гость
Ответ(ы) на вопрос:
Гость
 program m_1;  var b:integer; begin writeln('Введите номер месяца'); readln(b); if b>=13 then writeln('Вы дурак месяцов всего 12'); case b 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы