ПОМОГИТЕ ПОЖАЛУЙСТА. PascalABC. Даны действительные a,b,c. Получить g(a,c) - g(a,b), где...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА. PascalABC.
Даны действительные a,b,c. Получить g(a,c) - g(a,b), где g (x,y) = sin(x+y) + sin(x-y).

Answer 1

Var a,b,c:real;
function g(x,y:real):real;
begin
  g:=sin(x+y)+sin(x-y);
end;

begin
  writeln('Введите A,B,C');
  readln(a,b,c);
  writeln(g(a,c)-g(a,b));
end.