61

Напишите программу: по заданному номеру месяца будет напечатано его название и…

23 февраля 2023

Напишите программу: по заданному номеру месяца будет напечатано его название и указать, количество дней в месяце. Паскаль. Помогите пожалуйста

категория: информатика



69

Var a: integer; beginreadln (a); case a of1: writeln ('январь,31 день'); 2: writeln ('февраль,28 (29) дней'); 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.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...