По времени определить время суток. Оператор выбора case.

Question

Информатика

Поплия

27 июня, 11:57

По времени определить время суток. Оператор выбора case.

+1

Ответы (1)

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

Анастасьич · Answer 1

uses crt;

var

n, k:integer;

begin

write ('Введите час') ;

read (n) ;

if n>=24 then begin k:=n mod 24;

n:=k; end;

case n of

6 ... 11:write ('Утро') ;

13 ... 16:write ('День') ;

17 ... 23:write ('Вечер') ;

0 ... 5:write ('Ночь') ;

end;

end.