Розв’язок задачі з Абрамова №2

Всі умови | Умова: Дано дійсні числа x і y. Отримати... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №2)

Розв'язок на Pascal

program Pr2;
var
   x,y : byte;
   r : real;
begin
   readln(x, y);
   r := (abs(x) - abs(y)) / (1 + abs(x * y));
   writeln(r:10:2);
   readln;
end.

Розв'язок на С

#include <iostream>
#include <stdlib.h> 
using namespace std;

int main()
{
    double x, y;
    cin >> x;
    cin >> y;

    double r1 = (abs(x) - abs(y));
    double r2 = (1 + abs(x * y));
    double r = r1 / r2;

    cout.precision(2); // Precision 2
    cout << "result = " << r << endl;
    return 0;
}