А) На алгоритмическом языке:
алг пример
нач
цел x, y, z
вещ a, b, c
# Ввод данных (предполагается, что x+y > 0 и x != y)
ввод x, y
a := sqrt(x + y) / (x - y)
b := (x - y) / sqrt(x + y)
z := a + b
# Альтернативный вариант для второго выражения
# c := sqrt(x - y) / (x + y)
# d := (x + y) / sqrt(x - y)
# z := c - d
вывод z
кон
Б) На языке Паскаль:
program Example;
var
x, y: Real;
z: Real;
begin
// Ввод данных (предполагается, что x+y > 0 и x != y)
Write('Введите x: ');
Readln(x);
Write('Введите y: ');
Readln(y);
z := sqrt(x + y) / (x - y) + (x - y) / sqrt(x + y);
// Альтернативный вариант для второго выражения:
// z := sqrt(x - y) / (x + y) - (x + y) / sqrt(x - y);
Writeln('Результат: ', z);
end.
Ответ: Алгоритмический язык и Паскаль представлены выше.