Составить программу которая запрашивает температуру воздуха на улице (0

Var a : integer; beginwriteln('введите температуру: '); read(a); if (a< 31) and (a> 10) then writeln('жарко'); if (a> 0) and (a< 11) then writeln('прохладно'); if a> 30 then writeln('температура не соответстувет условию 0< t< 30'); if a< 1 then writeln('температура не соответстувет условию 0< t< 30'); end. т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии

x=16

ответ: 16 этажей

по формуле включений-исключений

35 = 24 + 18 + 12 - 5 - 10 - 8 + х

х = 4

 

чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения