Question

Решить задать с генератора случайных чисел час суток целое число от 0 до 23. напечатайте соответствующее этому времени сообщение: "доброе утро", "добрый день", "добрый вечер", "доброй ночи".

Answer 1

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. 

Answer 2

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.