Помогите, пожалуйста
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.
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.
More Questions From This User See All
Answers & Comments
программа выдает число 17 что бы это не значило...