Question

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

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.