Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.
Результат:
<span>s = 774779.580</span>
1. (b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+1/(b*b)
2. (a/c)*(b/d)-(a*b-c)/(c*d)
3. x-x*x*x/3+x*x*x*x*x/5
4. (x+y)/(x+1)-(x*y-12)/(34+x)
Y = √(cos(x-1) + e^3x (^3x - степень, корень касается только косинуса