Всем приветик. Помогите пожалуйста. Никак не могу понять, как это делать, одно задание сделала, а вот второе что-то не могу ...
Прикрепляю фотку, может кто поможет ;)
Программа (без контроля правильности ввода и без учета високосных лет):
var m,y:integer;
months:array[1..12] of string=
(январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь);
begin
write(Введите месяц и год: );
readln(m,y);
case m of
1,3,5,7,8,10,12: write(31 день, );
2 : write(28 дней, );
4,6,9,11 : write(30 дней, );
end;
writeln(months[m]);
end.
Пример:
Введите месяц и год:5 2016
31 день, май
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
