<span>Могу предложить на Паскале:
uses Crt;
var x, y, z: real;
</span><span>begin
ClrScr;
Write ('x = '); ReadLn(x);
Write ('y = '); ReadLn(y);
if (y<>-7) and (x+abs(y)>=0)
then
begin
z:=9*sqr(sqr(x))-sqrt(x+abs(y))/(y+7);
WriteLn('z = ', z:4:2);
end
else Writeln('None!');
ReadLn;
end.
Здесь важно учесть, что Y не должен равняться (-7), поскольку на 0 делить нельзя, и X должен быть больше или равен модулю Y, поскольку нельзя извлекать корень из отрицательного числа.
PS: Если надо решение на Си++, то это сделать просто, основываясь на приведенной выше программе...
</span>
4, там через тире написано
истинность это верный/неверный?если так то верный
написание краткого содержания параграфа текста, так как человек прочитал это и уже работает с прочитаным
Ответ:
program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.