Даны два целых числа А и В (А больше В). Найти сумму квадратов всех целых чисел от А до В включительно

Question

Информатика

Юрьич

2 марта, 23:26

Даны два целых числа А и В (А больше В). Найти сумму квадратов всех целых чисел от А до В включительно

+4

Ответы (1)

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

Матюха · Answer 1

Var

a, b, i, c: integer;

Begin

Write ('Введите А ') ;

Readln (a) ;

Write ('Введите B ') ;

Readln (b) ;

for i: = 1 to (b-a+1) do Begin

c:=c+a*a;

a:=a+1;

End;

End.