Энциклопедия!!!!!???????!!!
Третья буква должна быть согласной. Уберем варианты, которые не подходят под это условие:
Обезьяна, Слон
преобразуем условие в скобках
последняя буква согласная или первая буква гласная
Уберем неподходящие варианты:
Кошка, Кобыла, Корова, Собака
=> остались Индюк и Козел, которые подходят под это условие
Ответ: Индюк, Козел
Листинг программы и скриншот работы в приложениях.
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.