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

Question

Игнатий

27 февраля, 12:30

+1

Ответы (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.