ПОМОГИТЕ ПОЖАЛУЙСТА. PascalABC. Даны действительные a,b,c. Получить g(a,c) - g(a,b), где g (x,y) = si
ПОМОГИТЕ ПОЖАЛУЙСТА. PascalABC.
Даны действительные a,b,c. Получить g(a,c) - g(a,b), где g (x,y) = sin(x+y) + sin(x-y).
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы