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

Question

Татуся

5 августа, 03:51

+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.