Запрограммировать б) S:=1;а:=1 от i=1до 3 цикл S:=S+i.(i+1)а а:=а+2

Question

Запрограммировать б) S:=1;а:=1 от i=1до 3 цикл S:=S+i.(i+1)а а:=а+2

Answer 1

Var
  s,a,i:integer;
Begin
  s:=1; a:=1;
  for i:= 1 to 3 do
    Begin
       s:=s+i*(i+1)*a;
       a:=a+2;
    End;
 write('S = ',s,', A = ',a);
End.

Comments

огромное спасибо))))