Даны два целых числа А и В( А больше В) . Найти сумму квадратов всех целых чисел от А до В включительно
Даны два целых числа А и В( А больше В) . Найти сумму квадратов всех целых чисел от А до В включительно
Гость
Ответ(ы) на вопрос:
ГостьVar
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
Не нашли ответ?
Похожие вопросы