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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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