Question

Маше нравятся квадраты, поэтому она попросила Сашу посчитать сумму квадратов всех целых чисел от А до В включительно.
Формат входных данных
Программе на вход подаются два целых числа А и В (- 100 < А < В < 100).
Формат выходных данных
Программа должна вывести одно число - сумму квадратов всех целых чисел от А до В вклю-чительно. Паскаль

Answer 1

Ответ:

program z;

var A,B,i: integer;

S:int64;

begin

read(A,B);

S:=0;

for i:=A to B do S:=S+i*i;

writeln(S)

end.

Объяснение:

используем цикл for для перебора всех целых чисел от A до B (включительно)

Answer 2

Ответ:

Объяснение:

Program Sum_of_Squares;

Var A, B, C, i: Integer;

Begin

Write('Input A and B:');

ReadLn(A, B);  

C:=0;

For i:=A to B do

 C:=C+(i*i);

WriteLn('Sum of squares is ', C);

End.