Найти сумму 4+9+...+m^2, лишь из слагаемых, меньших k.
Ответы на вопрос
Ответил yulialyu
0
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.
Ответил mihark
0
Можно решить арифметически:
program zad;
var m:integer;
begin
read(m);
writeln((m*(m+1)*(2*m+1))/6-1);
end.
program zad;
var m:integer;
begin
read(m);
writeln((m*(m+1)*(2*m+1))/6-1);
end.
Новые вопросы