Question

Решите данную задачу на программном языке Паскаль

Answer 1

var x,y,z:real;
begin
readln(x,y);
z:=(1+x/(1*2)+y/(1*2*3))/(1+2/(3+x*y));
writeln(z:6:4);
end.

Пример:
5 2
3.3222

Answer 2

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите через пробел x,y:');
  Writeln((1+x/2+y/(2*3))/(1+2/(3+x*y)))
end.

Пример
Введите через пробел x,y: 8.4 -0.12
2.58480961923848