Прокомментировать код

@twonislatex · Регистрация: 11.09.2013

Author24 — интернет-сервис помощи студентам

Здраствуйте подскажите пожалуйста что делает вот этот кусок программы:

Pascal

begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do
  begin
    fac:=1;
    for j:=2 to (2*i-1) do
    fac:=fac*j;
    sum:=sum+fac;
  end;
end;

@ermolay · 19.10.2013, 14:30

twonislatex, судя по всему - находит сумму факториалов всех нечетных чисел от 1 до заданного n:

Pascal

begin
  sum:=0;
  for i:=1 to (n div 2)+(n mod 2) do { ищем среднее от числа n (от 10 будет 5, от 11 - 6)}
  begin
    fac:=1; {произведению присваиваем единицу в начале цикла}
    for j:=2 to (2*i-1) do {проходим по нечетным числам}
      fac:=fac*j;  {вычисляем произведение всех нечетных до i}
    sum:=sum+fac;  {суммируем произведения}
  end;

	19.10.2013, 14:30