uses crt; var n,k:integer; begin write('Введите час'); read(n); if n>=24 then begin k:=n mod 24; n:=k; end; case n of 6..11:write('Утро'); 13..16:write('День'); 17..23:write('Вечер'); 0..5:write('Ночь'); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
