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

Question

Игнатий

25 сентября, 17:03

+1

Ответы (2)

Знаете ответ на вопрос?

Андрей · Answer 1

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

program zad;

var m:integer;

begin

read (m) ;

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

end.

Кося · Answer 2

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.