Вот, держи :) Если в будущем появятся вопросы -- пиши нам в форму обратной связи на learnpascal.ru Мы
var a,arr_new: array[1..20] of integer; i,d,count,j: integer; begin write('Введите d: '); readln(d); j:=1; for i:=1 to 10 do begin readln(a[i]); if a[i] > d then begin arr_new[j]:=i; inc(count); inc(j); end; end; writeln; for j:=1 to count do write(arr_new[j],' '); end.
Здесь есть проверить, либо из восьмеричную систему счисления перевести в двоичную, либо из двоичную в восьмеричную, и тогда легче смотреть равны ли. И так первый это перевод из восьмеричную в двоичную: 2 - 010, 3 - 011 и 5 - 101 = 010010101011011 но первое число 0 не входи поэтому убираем и получаем 10010101011011. Второй это перевод из двоичную в восьмеричную: начинаем с конца - 011 это число 3(восьмеричная), 101 - 5 и 010 - 2, но учитывайте если остались числа 10 то в начале вписываем число 0 получим 010, в итоге 22533.
Программа получает со ввода значение 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
Если в будущем появятся вопросы -- пиши нам в форму обратной связи на learnpascal.ru
Мы
var a,arr_new: array[1..20] of integer;
i,d,count,j: integer;
begin
write('Введите d: ');
readln(d);
j:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] > d then
begin
arr_new[j]:=i;
inc(count);
inc(j);
end;
end;
writeln;
for j:=1 to count do write(arr_new[j],' ');
end.