5) Определите, какое число будет напечатано в результате выполнения следующего алгоритма: var a, b, t, N, P:integer;
Function F(x: integer) :integer;
begin
F := 4* (5-x) * (5-x)+10;
end;
BEGIN
a := -10; b := 10;
P:= 40;
N := 0;
for t := a to b do begin
if (F(t) > P) then begin
N := N+1;
end;
end;
write (N);
END.

AnnaVlasova09    2   09.12.2020 14:37    1