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);

Answer 2

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

Answer 3

так чтоли?

Answer 4

нет)

Answer 5

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

Answer 6

вот так?)