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

Question

Информатика

Теодор

30 октября, 03:50

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

+1

Ответы (1)

Знаете ответ на вопрос?

Пана · Answer 1

Var

a, b, i, s:integer;

begin

writeln ('Введите A:') ;

readln (a) ;

writeln ('Введите B:') ;

readln (b) ;

for i:=a to b do

s:=s+sqr (i) ;

writeln ('сумму всех кводратов целых чисел от A до B включительно:', s) ;

end.