Начало программы
С = 0
начало цикла от 1 до 5
ввод А
В = целая часть от А
если В = А, тогда С = С + 1
конец цикла
печать В
конец программы
А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка
</span>
Паскаль
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.
Лайк кста
Дата - дд/мм/гг
Осадки - длина 13
С температурой не помню,