Даны два целых числа А и В (А<В). Найдите сумму квадратов всех целых чисел от А до В включительно. (Составьте задачу)
Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
