СРОЧНО Даны время (два целых числа – часы и минуты). Вывести время суток. Будем считать,...

Question

СРОЧНО
Даны время (два целых числа – часы и минуты). Вывести время суток. Будем считать, что: утро – от 6:30 до 10:00 ;день – от 10:01 до 16:30 ;вечер – от 16:31 до 22:00 ;ночь – от 22:01 до 6:29
Pascal ABC ИНФОРМАТИКА

Answer 1

var a, b: integer;
begin
 writeln('Введите часы: ');
 readln(a);
 writeln('Введите минуты: ');
 readln(b);
if (a > 6) and (a < 10) then writeln('Утро');
if (a = 10) and (b = 0) then writeln('Утро');
if (a = 6) and (b >= 30) then writeln('Утро');
if (a > 10) and (a < 16) then writeln('День');
if (a = 10) and (b >= 1) then writeln('День');
if (a = 16) and (b <= 30) then writeln(<span>'День');
if (a > 16) and (a < 22) then writeln('Вечер');
if (a = 22) and (b = 0) then writeln('Вечер');
if (a = 16) and (b >= 31) then writeln('Вечер');
if (a > 22) or (a < 6) then writeln('Ночь');
if (a = 22) and (b >= 1) then writeln('Ночь');
if (a = 6) and (b <= 30) then writeln(<span>'Ночь');
end.