Question

Написать код в паскале

Answer 1

Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
    Begin
    P:=1;
    For j:= 1 to 9 do
        P:=P*sqr(i+j);
    E:=E+P
    End;
WriteLn('S = ',E);
End.