Даны два целых числа А и В (А меньше В). Найдите сумму квадратов всех целых чисел от А до В включительно. (Составьте задачу)
Даны два целых числа А и В (А<В). Найдите сумму квадратов всех целых чисел от А до В включительно. (Составьте задачу)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы