Помогите, пожалуйста с задачей Паскаль.Даны два целых числа A и B (A<B). Найти сумму...

Question

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

Comments

ЗАдача не дописана

Answer 1

Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
    S:=S+B*B;
WriteLn('S = ',S);
End.

Comments

Цикл открывается по переменной В и верхний параметр В ? Почему S - real , когда параметры цикла целые?

---

1) И что? 2) Чтобы избежать переполнения

Answer 2

Var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.