Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
sergeyblack11
25.02.2021 23:56 •
Информатика
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
Показать ответ
Ответ:
Avmb
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 оценок)
Популярные вопросы: Информатика
Sheri1
11.11.2022 17:06
Подскажите как понять: 8=2i = i=3...
LolKek006
16.12.2020 08:40
ОЧЕНЬ класс, Информатика Запишіть класифікацію моделей за подання та за галузями використання. Опишіть їх та наведіть приклади....
2005Киса
13.02.2022 12:59
Какой и где процесс протекает «идёт популярная телепрограмма «...
Deni11111111
13.02.2022 12:59
Нужно сделать 5 примеров excel что бы получились ответы которые написаны справа...
salievtrofim20
09.04.2022 08:13
В строковую переменную St занесена последовательность чисел, разделенных запятыми. Определить, образуют ли эти числа арифметическую прогрессию (например: 2,4,6,8,10,12;...
1Продавец1
11.03.2020 11:33
С Можно переводить тексты как офлайн и онлайн А) глобальные сети интернетаБ) систем машинного перевода В) компьтераГ) телепатий...
chitaevtimur134
01.02.2020 15:59
Дискредитация звук ка производится при...
sashkaaaxo
17.06.2022 01:39
1. дан массив, состоящий из 15 элементов. элементы вводятся случайным образом. найти количество элементов, кратных 3. (промежуток от 10 до 30) 2. дан массив, состоящий...
enbasmanovan
17.06.2022 01:39
Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. вывести на экран числа этой строки в порядке возрастания их значений. на паскале...
vasyazabelin
17.06.2022 01:39
Устройство для хранения мультемедийной информации являются...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.