Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yekatmedwedicz
28.08.2020 14:43 •
Информатика
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
Показать ответ
Ответ:
andreyeses883
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 оценок)
Популярные вопросы: Информатика
СоняШундик
24.12.2021 22:13
Влетнем лагере отдыха 86 семиклассников. 8 из них не любят компьютерные игры. 54 семиклассника предпочитают квесты, 62 - симуляторы. сколько с одинаковым удовольствием играют...
Lalker1337
03.02.2023 15:11
5. Алғашқы автоматты есептеу техникасының авторы: A) Конрат Цузе.В) Чарльз Бэббидж.C) Ада Лавлайс.D) Цузе.E) Джон Непер....
LeveL14
03.06.2021 00:43
В каждой строке файла записано три числа, каждое из которых находится в интервале [0,255]. Эти числа обозначают красную, зелёную и синюю составляющие цвета в цветовой модели...
kartoshechka49
16.10.2021 17:50
Программирование линейных алгоритмов, информатика 8 класс ...
1233456789
11.07.2022 07:39
Какие графические объекты можно создавать с программы...
DeltaMintz
13.08.2020 00:11
Робот выполнил такую программу алг Программа нач А A влево вверх A кон алг А нач вправо; закрасить вверх; закрасить вправо; закрасить вправо; закрасить вниз; закрасить кон Сколько...
Svetka707
30.12.2020 15:45
Вычислить сумму цифр заданного целого трехзначного числа. в паскале...
goldwildcat1
30.12.2020 15:45
101101 в двоичной системе счисления нужно сложить, вычесть, умножить, разделить на число 101 в двоичной системе счисления....
Tishukvasiliy
15.05.2022 19:25
Статья набранная на компьютере, содержит 8 страниц, на каждой странице 40 строк, в каждой строке 64 символа. информационный объем статьи составляет 25 килобайт. определите сколько...
Asimaaa
18.12.2021 12:06
Установите соответствие между полом одного из родителей и его ролью в семье. Соедините их стрелками. Пол: Мужчина Женщина Роль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.