Разработайте программу в паскаль вычисления сложного выражения: z=(x^2+y^2)/(2-sqrt(x+y)). Программа должна предлагать пользователю ввести величину переменных x и y и на основании этой информации производить расчет z.
Var x, y, z: double;
begin
writeln(Input x);
readln(x);
writeln(Input y);
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln(Incorrect input);
end.
Оцени ответ
