Здравствуйте! Помогите пожалуйста решить задачу Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. Напечатайте соответствующее этому времени сообщение: "Доброе утро", "Добрый день", "Добрый вечер", "...
Здравствуйте! Помогите пожалуйста решить задачу
Задать с помощью генератора случайных чисел час суток целое число от 0 до 23. Напечатайте соответствующее этому времени сообщение: "Доброе утро", "Добрый день",
"Добрый вечер", "Доброй ночи".
Гость
Ответ(ы) на вопрос:
Гостьvar day:byte;
begin
randomize;
day:=random(24);
case day of
5..11:writeln('Доброго утра');
12..17:writeln('Доброго Дня');
18..22:writeln('Доброго Вечера');
23, 1..4:writeln('Доброй ночи');
end;
writeln(day);
end.
Гостьvar a:integer;
begin
a:=random (24);
writeln ('время: ',a);
case a of
5..10: writeln ('доброе утро');
11..16: writeln ('добрый день');
17..23:writeln ('добрый вечер);
0,1..4: writeln ('доброй ночи');
end;
end.
Не нашли ответ?
Похожие вопросы