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