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