Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Решите пожалуйста, не понимаю, как это делать

Ответ оставил Гость

Var
A,B,S:integer;
i:byte;

Begin
For i:= 1 to 30 do
Begin
if i mod 2 = 0 then A:=A div 2
else A:=i;
if i mod 2 = 0 then B:=i*i*i
else B:=i*i;
S:=S+sqr(A-B)

End;
Write(S)
End.