Question

помогите решить пожалуйста 5 задание до вечера

Answer 1

Паскаль

Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.


Лайк кста

Answer 2

спасибо ,я уже и сама решила просто я забыла как разлаживать например 0<=t<6,но всё равно спасибо