Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TookteR
26.11.2022 22:41 •
Информатика
Напишите программу, которая вводит номер месяца и выводит название времени года.. при вводе неверного номера месяца должно быть выведено сообщение об ошибке.
Показать ответ
Ответ:
privet45
01.07.2020 06:54
PascalABC.NET 3.2:
begin
case ReadInteger('Введите целое число: ') of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
else write('Неверный номер');
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bogdanlinchenk
23.06.2021 10:54
Построить блок-схему алгоритма для вычисления r=sin x + cos x²...
fox590
28.08.2020 02:54
построить логическую схему...
siri9
30.04.2020 00:55
Өріс типтерін атап, оларға түсініктеме керек кто знает ответ ...
makel200005
12.08.2020 08:03
ВОПРОС НЕ ПО ПРЕДМЕТАМ В общем, не работает монитор на компьютере, но все подключено. Что делать? Или что это может быть? ...
Prokofevs84
21.06.2022 15:42
Определите, какие значения будут выводиться на принтер из данной программы. s = информатика print ( s [2,7] = , s [2,7]) print ( s [5:] = s [5:])print ( s [: 4] = , s [: 4])print...
vaneeva06
24.11.2021 20:16
Https://netref.ru/jiinti-bafalaufa-arnalfan-edistemelik-sinistar-informatika.html?page=2...
ayla678
12.09.2020 00:30
С палитры цветов можно выбрать Два цвета определите какой из них применяется как цвет фона основной цвет УМОЛЯЮ...
karrtavaya01
14.05.2023 20:02
Вычислите значение выражения наиболее удобным целых 1/4 (это дробь)• 1целую 13/19•7/16-1целая 13/19•1целую 1/2=?...
inos20
14.05.2023 20:02
Перевод текста one red paperclip 8 класс...
veroni4kaa
14.05.2023 20:02
Іть будь ласка скласти 6 речення з однорідними членами і 2 з узаганими словами і підкреслити...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
case ReadInteger('Введите целое число: ') of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
else write('Неверный номер');
end
end.