Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Luba0111
21.06.2020 17:36 •
Информатика
Написать программу,которая печатает "доброе утро","добрый день","добрый вечер","спокойной ночи",в зависимости от времени,которое вводится с клавиатуры на запрос программы.
Показать ответ
Ответ:
irinalera22
26.06.2020 20:52
Program esep;
var hour : byte;
begin
Repeat
Write('Часы: ');
Readln(hour);
until hour in [1..24];
case
hour of 8..11 : Writeln('Доброе утро!');
12..16 : Writeln('Добрый день');
17..23 : Writeln('Добрый вечер');
else Writeln('Доброй ночи!');
end;
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anonim307
20.11.2020 09:24
Оцените минимальный объем изображения в байтах...
roma1xayatov
20.10.2021 23:56
Пока Коля скучал между остановками, он разглядывал клумбу с цветами прямоугольной формы, выложенную по периметру квадратной плиткой. Ему стало интересно, какой максимальной...
оопгп
26.05.2022 01:38
В заданном одномерном массиве А, состоящем из N целых чисел,найти MIN элемент и поменять его местами с первым элементом массива А...
бэдгерл1
23.06.2022 05:26
Какой алгоритм следует использовать для создания рисунка с повторяющимся узором?...
akikoaki
14.08.2020 16:10
Звездный треугольник Напишите программу, которая выводит указанный треугольник, состоящий из звездочек (*).Sample Input:Sample Output:* ** *** Напишите программу. Тестируется...
zharas5
09.06.2021 09:54
Сделай вывод о том, как в учебнике организована информация?...
dicsi1
25.08.2022 08:45
Рассмотрите рисунок Определите характеристики процессора указаны на рисунк У НАС СОР...
SEMKA22444
09.01.2023 09:04
Отгадайте ребус по теме: безопасность в сети ...
alexeymaksimov
25.03.2023 10:54
Какую информацию может обрабатывать компьютер ?...
gerasimovichninka
05.09.2021 06:58
Складіть і розіграйте діалог, що міг би відбутися між двома семикласниками - членами шкільного історічного гуртка після першого засідання, яке провів новий керівник - студент...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var hour : byte;
begin
Repeat
Write('Часы: ');
Readln(hour);
until hour in [1..24];
case
hour of 8..11 : Writeln('Доброе утро!');
12..16 : Writeln('Добрый день');
17..23 : Writeln('Добрый вечер');
else Writeln('Доброй ночи!');
end;
Readln;
end.