var
s, s_new: string;
i: integer;
begin
read(s);
for i := 1 to length(s) do
s_new := s_new + s[i] + ' ';
writeln(s_new);
end.
Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2
Программа получает со ввода значение 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