Var x,y:real; begin write('x = '); readln(x); if x<0 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1)) else y:=x*x+4*cos(x); writeln('y = ',y:5:2); end.
Пример 1: x = -0.5 y = 2.66
Пример 2: x = 3.8 y = 11.28
0 votes Thanks 0
cazakovaleks20
а writeln(x) как мы записуем если я не ошибаюсь
cazakovaleks20
мне учителя говорили в write и read просто х поставить и нечего больше
Answers & Comments
Verified answer
Var x,y:real;begin
write('x = ');
readln(x);
if x<0
then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1))
else y:=x*x+4*cos(x);
writeln('y = ',y:5:2);
end.
Пример 1:
x = -0.5
y = 2.66
Пример 2:
x = 3.8
y = 11.28