Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
case ReadInteger of
0..6,24: write('ночь');
7..12: write('утро');
13..18: write('день');
19..23: write('вечер');
else write('ошибка');
end;
end.
//Версия 3.3, сборка 1634
begin
case ReadInteger of
0..6,24: write('ночь');
7..12: write('утро');
13..18: write('день');
19..23: write('вечер');
else write('ошибка');
end;
end.
Вас заинтересует
1 год назад