Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма. var a, b, t, m, r: integer; function f(x: integer): integer; begin f: =(x*x-25)*(x*x-25)+25 end; begin a: =-13; b: =13; m: =a; r: =f(a); for t: =a to b do begin if (f(t)
{Что сложного в том, чтобы забить данную программу в собственно Паскаль? :) }
В итоге получится 20.