Маше нравятся квадраты, поэтому она попросила Сашу посчитать сумму квадратов всех целых чисел от А до В включительно.
Формат входных данных
Программе на вход подаются два целых числа А и В (- 100 < А < В < 100).
Формат выходных данных
Программа должна вывести одно число - сумму квадратов всех целых чисел от А до В вклю-чительно. Паскаль
Формат входных данных
Программе на вход подаются два целых числа А и В (- 100 < А < В < 100).
Формат выходных данных
Программа должна вывести одно число - сумму квадратов всех целых чисел от А до В вклю-чительно. Паскаль
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
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 (включительно)
Ответ:
Объяснение:
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.