Задача выполняется в Паскале! Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно. Помогите плииз.

Question

Мирра

5 сентября, 00:14

+2

Ответы (1)

Знаете ответ?

Лара · Answer 1

var

i, a, b: integer;

k: Int64;

begin

readln (a, b) ;

for i : = a to b do

k + = sqr (i) ;

writeln (k) ;

end.