Посчитать сумму ряда

[Natalia_Zlatskaia]

Посчитайте сумму ряда
1+9+25+49+81+121+...+441
В Delphi с использованием оператора For

[type_Oleg]

Посчитал. 1771

[Natalia_Zlatskaia]

Ответ я и сама знаю) мне нужен код программы)

[Вадим Мошев]

Вот сам самая нужная часть кода

s := 0;

for i:=1 to 11 do begin
	s:= s + sqr(2*i - 1)
end;

[Аватар]

Интересно, как такой код объяснишь преподу? Он правильный. Или код Вадима

s:=1; for i:=2 to 11 do s:=s+1+i*(i-1)*4;

[Aleksandr H.]

+вариант

    s := 1;
    st := 8;
    ss := s;
    For i := 1 To 10 do begin
        s := s + st;
        st := st + 8;
        ss := ss + s;
    end;
  writeln(ss);