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

Question

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

---

Comments

Нужна программа?

---

да, программа

Answer 1

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.

Comments

это тип переменной, как бы

---

ну

---

а я о чём?)

---

это я понимаю, но почему именно её использовали ?

---

byte вмещает числа от 0 до 255, тут его даже много будет=))

---

хорошо, пасибо:)