Question

построить программу информатика

Answer 1

var a,x,y: real;
begin
readln(x,y);
if x>0 then y:=2*a*exp(ln(x+1)/4);
if x=0 then y:=2*a;
if x<0 then y:=2*a*exp(ln(abs(x+1))/3);
writeln(y);
end.