Записать последовательность операторов для решения : дано описание: type month = 1..12; var d: 28..31; m: month; переменной d присвоить количество дней в месяце m (год считать не високосным)

Igor599 Igor599    3   27.05.2019 04:50    1

Ответы
Karapetrova05 Karapetrova05  23.06.2020 21:27
Даже не знаю. Так?

type month=1..12;
var d:28..31;
m:month;
begin
read(m);
case m of
1,3,5,7,8,10,12:d:=31;
4,6,9,11:d:=30;
2:d:=28;
end;
write(d)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика