Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

вычислить значение выражения в паскале АВС

Ответ оставил Гость

uses crt;
var x,y:real;
F:real;
a,b:integer;
begin
writeln(Vvedite F(x,y));
readln(x,y);
writeln(Vvedite a,b);
readln(a,b);
F:=Exp(-x)*(cos(x/a)-sin(y/b))/(sqr(cos(y/a))-(sqr(sin(x/b))));
writeln(F(,x,,,y,)=,F);
end.