Напишите программу вычесления выражения s=(x-y^2)/(x^2+y^2)+xy

Question

Напишите программу вычесления выражения s=(x-y^2)/(x^2+y^2)+xy

Comments

На каком языке то? X и У вводятся с клавиатуры?

Answer 1

Var  s, x, y: real;
begin  write('введите х у:');  read(x, y);  s := (x - sqr(y)) / (sqr(x) + sqr(y)) + x * y;  s := Trunc(s);  writeln('s:', s);end