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

Помогите пожалуйста написать текст программы на языке паскаль

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

Program z2;
var b, t, x, y, z: real;
begin
b:= ...; //задаем b
z:=sqrt(abs(sin(abs(b))));
if(b>1) then t:=b*b
else t:=exp(b);
x:=(b*sqrt(z+1))/(t*z+1);
y:=b*ln(sqrt(x+t)+sqrt(x)) - sqrt(x*x+t*x);
writeln(y = ,y);
end.