Надо, сдавать уже завтра, нужно написать в паскале по формуле y=x-x3/3+x5/5+x7/7 , первая цифра после x это степени, не знаю просто как тут степень ставить.!

Будем считать, что х может быть любым действительным числом var x, y: real begin write ("vvedite x: "); readln (x); if (x < 0) then y = x + 1/3*exp(3*ln(abs( - 1/5*exp(5*ln(abs( - 1/7*exp(7*ln(abs(; if (x = 0) then y = 0; if (x > 0) then y = x - 1/3*exp(3*ln(abs( + 1/5*exp(5*ln(abs( + 1/7*exp(7*ln(abs(; writeln (y); end. тут дело вот в чем. в классическом паскале почему-то нет операции возведения в степень, поэтому приходится извращаться по формуле a^b = e^( ln(a^b) ) = e^( b*ln |a| ) к сожалению, формула работает не всегда. с отрицательными x в нечетной степени она будет давать неверный знак. поэтому я и добавил проверку if (x < 0). в delphi и в некоторых реализациях паскаля есть функция power или pow, но это редкость.

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

 

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну