Прикрепляю 2 фотографии. На первой написана задача про стоимость продуктов, но второй - задача с часами
![\displaystyle Y= \begin {cases} D/10, & D \leq -30 \\ -2D+1, & -30\ \textless \ D\ \textless \ 20 \\ (D-1)^2, & D \geq 20 \end {cases}](https://tex.z-dn.net/?f=%5Cdisplaystyle%20Y%3D%20%5Cbegin%20%7Bcases%7D%20D%2F10%2C%20%26%20D%20%5Cleq%20-30%20%5C%5C%20-2D%2B1%2C%20%26%20-30%5C%20%5Ctextless%20%5C%20D%5C%20%5Ctextless%20%5C%2020%20%5C%5C%20%28D-1%29%5E2%2C%20%26%20D%20%5Cgeq%2020%20%5Cend%20%7Bcases%7D)
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
3кБ=3072б (3*1024)
ответ 3072 байта делим на количество символов12288
равно 0.25 байт
1) 1425-225=1200(мух.)-улетели
2) 1200+213=1413(мух)-обратно прилетели
Ответ:1413 мух веселилось в комнате