Записать последовательность операторов для решения : дано описание: type month = 1..12; var d: 28..31; m: month; переменной d присвоить количество дней в месяце m (год считать не високосным)
Igor599
3
27.05.2019 04:50
1
Другие вопросы по теме Информатика
tati9860406
21.02.2021 20:46
АрінаЛеснічая
21.02.2021 20:45
grange
21.02.2021 20:45
rostikstorozhev
21.02.2021 20:43
TerminatorYotub
21.02.2021 20:42
PomogyBratan
21.04.2021 12:36
123abcde6
21.04.2021 23:37
Ritochkа
21.04.2021 23:32
Поля5021
11.06.2019 10:00
Популярные вопросы
- Что недопустимо в использовании обращений? (Русский Язык)...
3 - Сколько бит в выражении ОН И ЕЩЕ ТРОЕ ?...
3 - Магнитную стрелку поднесли к полосовому магниту и поместили в точку A недалеко...
2 - Какую роль играла армия в процессе по превращению Рима в сильнейшую державу?...
2 - М -точка дотику прямої АМ з колом з центром О. Градусна міра кута МАО дорівнює...
1 - Обставинами ускладнене речення. * а) Вітер в гаї нагинає лозу і тополю. б)...
1 - Перечислить хребты Юго-Западного Тянь-Шаня...
2 - Напишите вычисления как решили, ...
2 - Яка з основних властивостей живих організмів лежить в основі формування поведінки...
1 - Поставьте глаголы, данные в скобках в нужную форму. 1. If you (arrive) ten...
2
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.