напишите пожалуйста, программу вычисления в паскале, вот эти примерынапишите,что знаете..пожалуйста!

Ответы:

{ABC-pascal}

var

x: real,

begin   

write(x=),   

 readln(x),   

write(sqrt((sinx+1)/(cosx+1))=,sqrt((sin(x)+1)/(cos(x)+1))),   

 readln,

end

.{г}

{ABC-pascal}

var

x1,x2,y1,y2: real,

begin   

write(x1=),   

readln(x1),   

write(x2=),   

readln(x2),   

write(y1=),   

readln(y1),   

write(y2=),   

readln(y2),   

write(sqrt((x1-x2)^2+(y1-y2)^2)=,sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))),   

readln,

end.

{д}

{ABC-pascal}

var

x: real,

begin   

write(x=), 

  readln(x),   

write(x-2+sqrt(x^2+2x)-sinx=,x-2+sqrt(x*x+2*x)-sin(x)),   

readln,

end.