Question

HELP!!!Помогите!! Скласти програму мовою Pascal.
​

Answer 1

Ответ:

begin

var x, y, z: real;

Writeln('введите исходные данные:');

Write('x= ');

Read(x);

Write('y= ');

Read(y);

if x + y < -10

then z := x * x + y * y

else if x + y > 5

then z := Sqrt(x + y)

else z := 2 * x - y;

Writeln('z= ', z);

end.