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

Question

Информатика

Акинфий

9 сентября, 09:26

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

+4

Ответы (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.