Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
аленкатв3
14.07.2022 15:41 •
Информатика
Записать последовательность операторов для решения : дано описание: type month = 1..12; var d: 28..31; m: month; переменной d присвоить количество дней в месяце m (год считать не високосным)
Показать ответ
Ответ:
aidarbI4123
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
zhanylganahmet
07.09.2022 19:52
Вдень группа туристов покупает 10 буханок хлеба по а рублей,. 5 батонов по в тенге, 10 шт консервов по с рублей,. ведро картошки за д рублей на оставшиеся деньги они...
Ira511
07.09.2022 19:52
Вхронологическом порядке перечень этапов развития информационной технологии: а) ручная, механическая, электронная, электрическая, компьютерная; б) каменная, механическая,...
перйзат
21.09.2020 09:05
Составить программу вычисления функции:...
lampec1
02.08.2021 15:14
Имеется N рулонов обоев, размеры каждого рулона (0.5*10) м. Достаточно ли их для оклейки стен комнаты, если периметр комнаты Р, высота Н, а площадь дверного проема...
alisa0901
22.03.2023 05:57
Хелп! Задано натуральное число n. Написать программу вычисления суммы натуральных чисел от 1 до n. i=1..n, S=0, S=S+i...
кирилл20072
21.05.2022 22:05
построить график функции...
coolraynur
04.10.2021 08:35
По линии связи, имеющей полосу пропускания 0÷100 МГц, нужно передавать прямоугольный импульс длительностью 1 нс. Можно ли организовать неискажённую передачу по такой...
dikozzz
22.11.2021 11:48
Определив подпрограмму нахождения максимума из двух чисел, найти максимум из четырех заданных чисел....
druy071
26.01.2021 22:50
Логическую формулу: (a ∧ b) ∧ (c ∧(c∨ a))...
dollfasse
11.02.2023 18:14
С Microsoft Excel найти решение следующей задачи: Работнику организации начисляют надбавку, если его зарплата не больше 20 тыс. руб. и стаж работы превышает 10 лет....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.