Question

СРОЧНО,ПРОГРАММИРОВАНИЕ.ДАЮ 40 БАЛЛОВ.
ПАСКАЛЬ

Answer 1

Uses Math;

var x,y,s, a,p,b: real;

begin

write('Введите x = ');

readln(x);

write('Введите y = ');

readln(y);

write('Введите a = ');

readln(a);

write('Введите b = ');

readln(b);

write('Введите p = ');

readln(p);

s:= (sqrt(sqr(x-y))/(Abs(power(x,3) - Power(y,3)) - x*y))

* (sqr(Sin((x - a)/p)) + sqr(Cos((y - b) / p)));

write('Результат вычисления функции: ');

Writeln(s);

end.