Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
лав35
20.10.2022 22:24 •
Информатика
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
Ответ:
Германкорпорация
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 оценок)
Популярные вопросы: Информатика
kksa2001
19.08.2020 01:23
Установите соответствие b.операционная система c.сервисная программа d.прикладная программа 1.Linux 2.Пакет MS Office 3.Антивирус Касперского...
saaxst
26.11.2022 11:02
Какой результат вычислений в ячейке С1 в редакторе Excel А B С 25 =А1*2 А1+B1...
sofaTV
19.02.2023 09:06
2. что такое программное обеспечение? какова его роль? 3. какие основные группы программного обеспечения принято выделять по функциональному значению? 4. какие основные...
selivanovartem1
25.01.2021 03:24
:сделать функцию определения того, что данное число является факториалом: function reversef (f: integer; var n: integer): boolean (возвращает true, если f – факториал,...
DjYuLiAnNa
14.01.2021 20:35
Входные данные некоторый программы записаны в текстовый файл. в каждой строке файла содержится два целых и три вещественных числа, разделенные пробелами. напишите программу,...
ViktorrriaQueen
14.01.2021 20:35
1. в зависимости от изображения чисел системы счисления делятся на: а. позиционные и непозиционные; б. арабские и римские; с. древние и современные; 2. двоичная система...
777777770
23.02.2022 05:25
Оч много 1)сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. информационный объём всего сообщения равен 9000 байтам. какой информационный...
4568633
20.11.2021 21:39
Переведите десятичные числа в шестнадцатеричную систему счисления ( желательно подробно как это получилось, а не просто число): 1) 128 2) 100 3) 0.125 4) 345.75...
Лисёнок335
10.05.2020 12:19
Как можно наглядно изобразить отношения объектов?...
annaaristova
03.04.2023 00:59
ЗАДАНИЕ No5 ТЕКСТ ЗАДАНИЯНайти объем информации слова ДБОИЧНАЯ ИНСТРИАЦИ В байтах и в бита19 байтов; 152 бит18 бит; 144 байт18 байт; 144 бит19 бит; 152 байт18 бит; 152...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.