Найти сумму 4+9 + ... + m^2, лишь из слагаемых, меньших k.

Question

Манюня

9 марта, 07:32

+4

Ответы (2)

Знаете ответ?

Митюля · Answer 1

uses crt; var m, p, i:integer; begin write ('M = ') ; read (m) ; p:=1; for i:=1 to m do begin p:=p * (2*i+1) ; end; write ('p = ', p) ; end.

Нов · Answer 2

Можно решить арифметически:

program zad;

var m:integer;

begin

read (m) ;

writeln ((m * (m+1) * (2*m+1)) / 6-1) ;

end.