Question

X Y действительны числа . Найти z=-2x^2+2xy

Answer 1

program ddg2;

var
x, y: Real;

begin
WriteLn('введите x,y');
ReadLn(x, y);
WriteLn('z=', - 2 * sqr(x) + 2 * x * y);
end.