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

Question

Информатика

Евгеныч

1 июля, 07:13

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

+1

Ответы (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.