найти сумму квадратов всех целых чисел от - 10 до b (b>=-10)

Question

Информатика

Владя

2 февраля, 16:17

найти сумму квадратов всех целых чисел от - 10 до b (b>=-10)

+1

Ответы (2)

Знаете ответ на вопрос?

Федот · Answer 1

var

i, s, b:integer;

begin

write ('Введите b: ') ;

readln (b) ;

s:=0;

for i: = - 10 to b do s:=s+i*i;

writeln (s) ;

end.

Ритуся · Answer 2

Program summa;

Uses crt;

Var i, s, b:integer;

Begin

Write ('Введите число, b=') ;

Readln (b) ;

For i: = - 10 to b do

s:=s+sqr (i) ;

Writeln ('Сумма квадратов = ', s) ;

End.