с паскалем ПРИМЕР: var x, y : real; a, b : integer; begin; write ('Введіть x=>'); readln (x); write ('Введіть a=>'); readln (a); write ('Введіть с паскалем ПРИМЕР: var x, y : real; a, b : integer; begin; write ('Введіть x=&g">
var x, y : real; begin; write ('Введіть x=>'); readln (x); if x<2 then y:= (2/7)*sin(x)+(tan(x)+power(x,3))/(5*x+6) else if x<=5 then y:= sqrt(exp(-x)+1); if x>5 then write ('решения нет') else write ('y=', y); end.
program pp;
var x,y:real;
begin
readln (x);
if x < 2.0 then
begin
y:=2.0*sin(x)/7.0+(sin(x)/cos(x)+x*sqr(x))/(5.0*x+6.0);
writeln(y)
end;
if (x>=2.0) and (x <=5.0) then
begin
y:=exp(-x)+1.0;
y:=sqrt(y);
writeln(y)
end
end.
Объяснение:
Пример работы: