Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Djjhsb
12.08.2020 21:21 •
Информатика
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
Показать ответ
Ответ:
Wasder1
26.05.2020 05:05
(вроде так)
Var mesyac:integer;
begin
writeln('введите номер месяца');
readln(mesyac);
if mesyac = 12 or 1 or 2 then
writeln ('зима');
if mesyac = 3 or 4 or 5 then
writeln ('весна');
if mesyac = 6 or 7 or 8 then
writeln ('лето');
if mesyac = 9 or 10 or 11 then
writeln ('осень')
else writeln('ошибка, не правильно введен месяц');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
shreyder2016
21.06.2021 17:05
Запишите число, которое получится при переводе значения 1/8 кб в минимальные единицы измерения информации....
Вася1480
21.06.2021 17:05
Уплемени чичевоков в алфавите 20 буквы и 10 цифр. знаков препинания и арифметических знаков нет. какое минимальное количество двоичных разрядов им необходимо для кодирования...
sweetcarpet258
29.03.2022 02:58
А20. определи, какой ip-адрес соответствует иерархическому дереву размещения информационного ресурса в сети интернет.1) 15.16.192.152; 2) 152.192.16.15; 3) интервалы...
Aminan11
29.03.2022 02:58
№1 выберите определение компьютерного вируса. 1)прикладная программа 2)системная программа 3)программа, выполняющая на компьютере несанкционированные действия 4)база...
lancerevol12p0cjct
28.05.2021 04:52
20 изображений одинакового размера, отсканированных с одинаковым разрешением и с битовой глубиной 24, занимают на диске ровно 50 мбайт. графический формат, в котором...
5alo
13.02.2020 04:37
A= int( b = int( s = 0 c = 0 for i in range(a, b+1): if i % 3 == 0: s += i c += 1 i += 1 print(s / c) что означает строка c += 1?...
казиба
27.04.2021 08:34
1) где размещается кнопка системного меню? 2) где размещается свернутое окно? 3) назовите команды меню программ блокнот,калькулятор 4) назовите варианты представления...
kolika2016
27.04.2021 08:34
Решить по информатике. условия дан массив вещественных чилех x(12) все его элементы уменьшить на 23. 2)дан массив целых чисел, все четные элементы заменить на их квадраты,...
aredov1987p069bi
08.10.2020 06:41
Информатика контрольный вопрос как открыть фаил excel?...
AlinaAok
04.01.2023 20:47
Катер движется вниз по реке со скоростью 18 км/ч. с какой скоростью жвигалсч бы этот катер в стоячей воде, если скорость течения реки 3 км/ч...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var mesyac:integer;
begin
writeln('введите номер месяца');
readln(mesyac);
if mesyac = 12 or 1 or 2 then
writeln ('зима');
if mesyac = 3 or 4 or 5 then
writeln ('весна');
if mesyac = 6 or 7 or 8 then
writeln ('лето');
if mesyac = 9 or 10 or 11 then
writeln ('осень')
else writeln('ошибка, не правильно введен месяц');
end.