ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!

Приложения:

Ответы

Ответ дал: MrFasty5
0

var t:integer;

begin

writeln('Введите время в часах:');

read(t);

case t of

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

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

12..17: writeln('День');

18..24: writeln('Ночь');

else

writeln('Ошибка при вводе времени');

end;

end.

Ответ дал: arinaaaa9057
0
Спасибо Вам огромное!
Ответ дал: MrFasty5
0
Да не за что, можете пожалуйста отметить как лучшее
Вас заинтересует