Найти значение выражения

[Санек-22рус]

Где b, N - заданные натуральные значения.

[Stilet]

Попытки и наработки увидеть можно?

[Санек-22рус]

program virazhenie;
var h,a,d,x:integer;
begin
read(x,a,d);
h=:1; i:=a;

[newerow1989]

var i,b,N:byte;
    s:real;
begin
   Write('b = ');
   Readln(b);
   Write('N = ');
   Readln(N);
   s:=1;
   For i:=1 to 9 do
      s:=s*(i+1)/(i+2)*(b+i);
   s:=s*11/12*(b+N);
   Writeln(s:5:5);
   Readln;
end.

Сойдет?

[Санек-22рус]

Спасибо! Мы с тобой с одного края)

[newerow1989]

Пожалуйста!