По времени определить время суток. Оператор выбора case.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
