// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=-1.32; var b:=1.49; var h:=0.11; var y1:=-14.0; var y2:=17.0; var k:=0; var x:=a; while x<=b do begin var y:=Tan(x); if (y>=y1) and (y<=y2) then begin Writeln('x=',x:5:2,' y=',y:7:4); Inc(k) end; x+=h end; Writeln('Найдено значений: ',k) end.
В основу решения возьму тот факт, что точка лежит внутри треугольника только в том случае, если сумма площадей трех образованных этой точкой и вершинами треугольников треугольников равна площади самого треугольника. Для нахождения площади треугольников использую формулу векторного произведения, деленного пополам.