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

Question

Информатика

Симона

18 мая, 21:24

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

+2

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