tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Записать последовательность
Записать последовательность операторов для решения : дано описание: type month = 1..12; var d: 28..31; m: month; переменной d присвоить количество дней в месяце m (год считать не високосным)
Igor599
3 27.05.2019 04:50
1
Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tati9860406
21.02.2021 20:46
Петя перешёл в другую школу. На уроке физкультуры ему понадобилось определить своё место в строю ему это сделать. Входные данные Программа получает на вход невозрастающую последовательность...
АрінаЛеснічая
21.02.2021 20:45
КТО ЗНАЕТ ЯЗЫК ПРОГРАММИРОВАНИЯ ДЕЛФИ ? ОЧЕНЬ НУЖНО...
grange
21.02.2021 20:45
Первоначально рисунок, выполненный в палитре, состоящей из 16 цветов, имел размерность 128 х 128. Пользователь изменил размерность рисунка и она стала 256 х 128. А потом пользователь...
rostikstorozhev
21.02.2021 20:43
есть схема Парковки . Твоя задача сделать собственную схему в 6 движений. Нарисовать собственную схему Парковки в Paint...
TerminatorYotub
21.02.2021 20:42
Определите в битах глубинк кодированич каждого цаета палитры, состоящей из 24 цветов. В ответе запишите только число, наименование единицы измерения записывать не нужно....
PomogyBratan
21.04.2021 12:36
и в профиле есть 2 часть и ее сделайте ...
123abcde6
21.04.2021 23:37
5. Складіть програму мовою Python для знаходження суми, різниці, добутку та частки двох чисел ( ). 6. Складіть програму мовою Python, за до якої з введеного слова інформатика...
Ritochkа
21.04.2021 23:32
написать (С++) Написати рекурсивну функцію amount, яка повертає кількість цифр у заданому натуральному числі n. Перевірка: якщо n = 3655, то k = 4; якщо n = 56987, то k = 5....
Поля5021
11.06.2019 10:00
представления информации вид данных...
msteep6
11.06.2019 10:00
1)турист+поход=? где знак вопроса заменить числом.2)у пятачка есть три шарика: зеленый,красный и синий.первый не зеленый,второй не синий,а третий не красный.какого цвета каждый...
Популярные вопросы
Что недопустимо в использовании обращений? (Русский Язык)...
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.