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