Нарисовать блок схему и составить программу паскаль. Z=3x²-4xy,если x<0 Z=7x-3/5xy,если...

Question

Нарисовать блок схему и составить программу паскаль. Z=3x²-4xy,если x<0<br> Z=7x-3/5xy,если x=>0

Answer 1

Var
x,y:integer;
begin
write('Введите x=');read(x);
write('Введите y=');read(y);
if x<0 then<br>write('z=',3*sqr(x)-4*x*y)
else
write('z=',7*x-3/5*x*y);
end.

---