Напишите фрагмент программы, находящий сумму квадратов чисел от 1 до 100. (Паскаль)

Question

Напишите фрагмент программы, находящий сумму
квадратов чисел от 1 до 100. (Паскаль)

Answer 1

Если фрагмент, тогда

s:=0;
for i:=1 to 100 do
s:=s+i*i;

Comments

а если по подробнее

---

Просили же фрагмент. Сейчас выложу полностью.

---

А нет, не выложу. Отмечен как нарушение - изменить не могу.

---

ну окей

---

всё равно спасибо