Записать последовательность операторов для решения задачи:Дано описание:type month = 1..12;var d:28..31;m:month;Переменной d присвоить количество дней в месяце m (год считать не високосным)
Записать последовательность операторов для решения задачи:
Дано описание:
type month = 1..12;
var d:28..31;
m:month;
Переменной d присвоить количество дней в месяце m (год считать не високосным)
Гость
Ответ(ы) на вопрос:
ГостьДаже не знаю. Так?
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.
Не нашли ответ?
Похожие вопросы