Какое наибольшее целое значение h нужно ввести чтобы программа напечатала число 30. var a,b,t,m,r,h : integer; function f(h, x: integer): integer; begin f : = 11*(x-h)*(x-h)+13; end; begin readln(h); a : = 0; b : = 30; m : = a; r : = f(h, a); for t : = a to b do begin if (f(h, t) > r) then begin m : = t; r : = f(h, t) end end; write(m); end.

Программа получает со ввода значение h и выполняет табуляцию функции f(t,h)=11(t-h)²+13 на интервале [0; 30]. на вывод поступает значение t, при котором функция f(t,h) принимает максимальное значение. в требуется определить максимальную величину h, при которой функция f(t,h) на заданном интервале принимает максимальное значение для t=30, т.е. на правом конце интервала. график функции f(t,h) - это квадратная парабола, ветви которой направлены вверх, поэтому максимальное значение такой функции достигается на одном или одновременно на обоих концах интервала. для нашего случая f(30,h) > f(0,h) 11(30-h)²+13 > 11(0-h)²+13 11(900-60h+h²)+13 > 11h²+13 9900-660h+11h²+13 > 11h²+13 9900-660h > 0 ⇒ h < 9900/660 или h< 15. в целых числах получаем h=14 (в программе h описывается как integer). ответ: h=14

#ruby 2 def getnumberssum(n)             n = n.to_i             sum = 0             while n > 0                   sum += n % 10                   n = n / 10             end             return sum       end n = gets k = gets kolvo = 0 for i in **n) - 1       kolvo += 1 if getnumberssum(i) == k end p kolvo