Search the Community
Showing results for tags 'турбо паскаль'.
Found 1 result
-
Объясните пожалуста, как выполняется это программа на паскале, пока с функциями не разобрался) вот сам код: var a,b,t,M,R: integer; Function F(x:integer):integer; begin F := 3*(x-5)*(x-5)+37 end; begin a := 5; b := 35; M := a; R := F(a); for t := a to b do begin if (F(t) < R) then begin M := t; R := F(t) end end; write(M) end.
