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

Question

Информатика

Владя

19 сентября, 10:46

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

+4

Ответы (2)

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

Ритуся · Answer 1

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.

Федот · Answer 2

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.