Введите только время (только часы) и напечатайте соотвествующие этому времени сообщение:"доброе утро", добрый вечер, доброй ночи

Question

Информатика

Дарюша

9 июня, 21:53

Введите только время (только часы) и напечатайте соотвествующие этому времени сообщение:"доброе утро", добрый вечер, доброй ночи

+1

Ответы (1)

Знаете ответ на вопрос?

Альберт · Answer 1

Var h:integer;

begin;

readln (h) ;

case h of

7 ... 15:writeln ('Доброе утро') ;

16 ... 23:writeln ('Добрый вечер') ;

0 ... 6:writeln ('Доброй ночи') ;

else writeln ('Не часы') ;

end;

end.