Паскаль. Написать программу которая после введения месяца, выводит на экран количество дней этого месяца
var s:string;beginwrite(Введите месяц: );readln(s);case s ofянварь,март,май,июль,август,октябрь,декабрь:writeln(31 день);апрель,июнь,сентябрь,ноябрь:writeln(30 дней);февраль:writeln(29 дней);end;end.
Оцени ответ
