Question

Составьте программу, которая запрашивает t-время в часах(целое число от 0 до 24) и выводит на экран название времени суток : "Ночь" , если 0<=t<6 ; "Утро", есди 6<=t<12; "Вечер", если 18<= t<=24.​

Answer 1

var t : integer;

begin

readln(t);

if ((t >= 0) and (t < 6)) then

writeln("Night");

if ((t >= 6) and (t < 12)) then

writeln("Morning");

if ((t >= 12) and (t < 18)) then

writeln("Day");

if ((t >= 18) and (t < 24)) then

writeln("Evening");

end.