Пожалуйста помогите!!! Даны действительные числа х и у, напишите программу вычисления (...

Question

Пожалуйста помогите!!!
Даны действительные числа х и у, напишите программу вычисления ( |х-у| )/(1+|ху|). Результат округлите до двух знаков после запятой.
Умоляю помогите!!!! Не шарю в информатике

Answer 1

Var x,y,r: real;
begin
  write('x y через пробел: ');  readln(x,y);
  r:=abs(x-y)/(1+abs(x*y));
  r:=round(r*100)/100;
  writeln('результат: ',r);
end.

x y через пробел: 0.5 -3.4
результат: 1.44

Comments

спасибо большое!!!

---

Пожалуйста.