Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
В меню там нужно написать орфографический словарь
Если должен сказать твой персонаж, то там в действиях есть "Сказать", а если просто на экран там вроде-бы через рисунок можно
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
Надеюсь, что ты поймешь. Пыталась итак подробно объяснить...
(Вместо 35 - 32, извините, поторопилась. Но ответ 57 в 10-ой системе)