Question

Помогите пожалуйста, не понимаю что нужно сделать

Answer 1

Ответ:

Объяснение:

program Summator;

const

   M0=6;

   DeltaM=3;

var

   K, M, SumK, SumM : integer;

   y : real;

begin

   SumK:=0; SumM:=0;

   for M:=0 to 39 do SumM:=SumM+M*DeltaM+M0+10;

   for K:=1 to 30 do SumK:=SumK+K*K*K;

   y:=SumM/SumK;

   WriteLn(y:10:5);

end.