Следует отметить, что 1 условие выполняется во всех цепочках, а значит его можно не рассматривать.
Рассмотрим каждую комбинацию отдельно:
HDEE
2 условие - true
3 условие - true
4 условие - true
Подходит
<span>HHAE
</span>2 условие - true
3 условие - false(H на 2 месте)
<span>HEAE
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AHAH
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEAD
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEED
</span>2 условие - false(E на 3 месте)
<span>CAEH
</span>2 условие - false(A не входит в список допустимых значений)
<span>EHAD
</span>2 условие - true
3 условие - false(E <span>не входит в список допустимых значений)
</span><span>CDEA
</span>2 условие - true
3 условие - true
4 условие - false(A <span>не входит в список допустимых значений)
Ответ: 4</span>
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
Ответ:
var x:Real;
begin
write ('x = ');
Readln(x);
if x<0 then Write('y = ',x*x) else
if x>2 then Write('y = ',(3*x-1)/(2*x)) else
Write('y = ',sqr(x)*x+5)
end.
Ответ в прикрепленном файле