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

Question

Арий

15 декабря, 11:39

+3

Ответы (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.