Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
netunikaa
20.01.2023 22:36 •
Информатика
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
Ответ:
ДлЯсВоИхПро100АлЯ
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 оценок)
Популярные вопросы: Информатика
AlenaSmaychkov222
10.06.2022 19:55
Запишите последовательность не более чем из 5 команд, в результате выполнения которой получиться число 24....
kabdushevaaynash
25.02.2020 07:06
по информатике 1) 54373(12 системы) перевести в 10 .2)у=х^2, х=49(16 системы) - 71(8 системы) найти у. 3)ААF8В (16 системы)- перевести в 10 . 4)Найдите натуральное...
Babka2002
26.03.2021 22:15
Помагите с заданием 3 вариант ...
рррр194
12.06.2020 01:40
Два тела одинакового обьема -цинковое и медное- движутся с одинаковыми скоростями.сравните импульсы этих тел,если плотность цинка равна 7 г\см в кубе,плотность меди...
Александра2280193
12.06.2020 01:40
Кто хорошо знает анг.,напишите мне ! report the sentences: 1.marius said , what were you celebrating when i came in? 2.marcus said , where will you celebrate your...
mrden3333
12.06.2020 01:40
Вчем заключается двигательная функция опорно-двигательного аппарата?...
fagsfssfs
12.06.2020 01:40
Умоляю ! завтра будут жестко ! можете написать краткие ответы ! какие признаки современных государств отсутствовали во франции? как вы считаете, какое государство-...
lalka133722
12.06.2020 01:40
За 3 ч переместили зерно из одного отсека амбара в другой.при этом за первый час переместили 0,4 всего зерна,за второй час 0,6 оставшегося зерна,за третий час оставшиеся...
amira20061020
12.06.2020 01:40
Определите для каждой страны- австрии,россии и эфиопии- товарную структуру экспорта: сельского хозяйства добывающей промышленности обрабатывающей промышленности итог...
vedmochkasalyt
12.06.2020 01:40
Составить слово из этих букв: e,e,w,s,t...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.