СРОЧНО Даны время (два целых числа – часы и минуты). Вывести время суток. Будем считать, что: утро – от 6:30 до 10:00 ;день – о
СРОЧНО Даны время (два целых числа – часы и минуты). Вывести время суток. Будем считать, что: утро – от 6:30 до 10:00 ;день – от 10:01 до 16:30 ;вечер – от 16:31 до 22:00 ;ночь – от 22:01 до 6:29 Pascal ABC ИНФОРМАТИКА
<span>var a, b: integer;
begin<span> writeln(<span>'Введите часы: '</span>);</span> readln(a);<span> writeln(<span>'Введите минуты: '</span>);</span> readln(b);<span> if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>); </span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>); </span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span> if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span> if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span> if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span> if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span> if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span> if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span> if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>); </span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>); </span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>); </span><span>end.</span></span>