помогите пожалуйста с написанием программы в Pascal Turbo

Question

Татьяна · Accepted Answer

var a,b,c,d,x,f:real; 
begin 
writeln('x,c,d'); 
readln(x,c,d); 
a:=sin(abs((c*x+1)/sqr(d))); 
b:=0.5*ln(sqr(c*x+1)+sqr(d)); 
writeln(a,b); 
readln; 
end. 
 
Пучеглазый Ж. не все точки с запятой написал.

Ксюша Суперская · Answer

ну если у тебя e=25.7, то я не знаю, как тебе помочь. . 
а если серьезно, то стучись в агент

Grisha Brinza · Answer

хочешь решение - плати. пиши на почту, договоримся.

Андрей · Answer

если в лоб и не думать особо, то так 
if (sin((cx+1) / (d*d))) > (n*sqrt((cx + 1)*(cx+1) + d*d)) then writeln('max is A ') else writeln('max is B '); 
readln; 
 
а если красиво, то мне в лом ))

Витек Морозов · Answer

Uses Crt; 
Var a,b,max:Integer; 
Begin 
ClrScr; 
x:=0.51 
d:=2.5 
c:=2.57 
readln(x,d,c); 
a:=sin(abs((cx+1)/d^2)) 
b:=ln(sqrt((cx+1)^2+d^2)) 
Readln(a,b); 
If (a>b) Then max:=a else max:=b; 
readln(max) 
Writeln('max=',max); 
Readln; 
End.