Ответ тут на фото там под колоной нужной ответ
Программа получает со ввода значение 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).
<u><em>Ответ:</em></u> H=14
Var a,b,c,sred_A:real;
begin
Writeln('Привет,я-alconafft');
Writeln('Введи первое число');
readln(a);
Writeln('Введи второе число');
readln(b);
Writeln('Введи третье число');
readln(c);
sred_A:=a+b+c/3;
writeln('среднее арифметические равно ',sred_A);
end.
Var a,b,c:integer;
d:array [1..20] of integer;
begin
randomize;
for a:=1 to 5 do begin
d[a]:=random(-100,100);
if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a])
else writeln('нечётный элемент массива ==> ',d[a]);
end;
end.<span>
</span>
Каждый пользователь перед скачиванием и установкой новой программы читает ее описание. По сути, описание выполняет в числе прочих и рекламную функцию, рассказывая о преимуществах программы и убеждая пользователя в ее необходимости. На самом деле описать программу<span> несложно. Для этого можно придерживаться универсального плана, который позволяет последовательно раскрыть ее возможности и преимущества.</span><span>
<span /></span>