Ответ: Turbo Pascal
Спасибо. как ты написал не работает, работает в следующем виде.
program func;
uses CRT;
var a,b,x,y:real;
begin
writeln('vvedite a,b,x:');
readln(a,b,x);
y:=exp(arctan(a*b)-ln(8*x-a)/ln(10))/(sqrt(abs((x-a)/(x-b)))-(x*x-a*exp(1/3)));
writeln ('y=',y:3)...