var s,i:longint;
begin
s:=0;
For i:=1 to 29 do
s+=i*(i+1);
Write(s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
С цикла for вычислите значение выражения 2*3+3*4+...+29*30
var s,i:longint;
begin
s:=0;
For i:=1 to 29 do
s+=i*(i+1);
Write(s);
end.