profile
Опубликовано 4 года назад по предмету Информатика от Комарова5

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

  1. Ответ
    Ответ дан Gilbord
    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. 
  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.