<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
Var x,y,z,t: real;
begin
write('числа x y z через пробел: ');
readln(x,y,z);
t:=2*cos(x-pi/6)/(0.5+sin(y)*sin(y))*(1+z*z/(3-z*z/5));
writeln('t = ',t);
end.
числа x y z через пробел: 1 2 3
t = 11.3859051278616
Вк это соц сеть. Она влияет на человека по разному на кого-то плохо на кого-то отлично. Там вы можете найти хороших , замечательных друзей