Помогите, пожалуйста var a,b,t,N,P :integer; Function F(x: integer):integer; begin F :=...

Question

Помогите, пожалуйста var a,b,t,N,P :integer; Function F(x: integer):integer; begin F := 3*(9-x)*(9-x)+12; end; BEGIN a := -10; b := 10; P := 25; N := 0; for t := a to b do begin if (F(t) > P) then begin N := N+1; end; end; write(N); END.

Comments

Так а что нужно то?

---

чем помочь то???

---

Что выведет программа

Answer 1

программа выдает число 17 что бы это не значило...