Задача в паскале. Даны два числа А и Б, где А<Б. Найти сумму квадратов ВСЕХ целых чисел...

Question

Задача в паскале. Даны два числа А и Б, где А<Б. Найти сумму квадратов ВСЕХ целых чисел от A до B включительно. Как это сделать через цикл For?

Answer 1

Var i, sum: integer;

for i:=a to b do
begin
sum:= sum + i*i;
writeln(sum);
end;
writeln();
writeln(sum);

Comments

Сказали неверно, нужно вывести сумму всех квадратов, то есть кв 4 + кв 4 = 32 (неверно) нужно суммировать квадраты 1, 2, 3, 4 (до введённого числа А) и 1,2,3,4 (до введённого числа B).

---

так чтоли?

---

нет)

---

по-любому последний sum и есть ответ

---

вот так?)