найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10
ПОМОГИТЕ СРОЧНО. ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ответы
Ответ дал:
0
var b,i,sum,sq:integer;
begin
readln (b);
for i:=-10 to b do
begin
sq:=sqr(i);
sum:=sum+sq;
end;
writeln (sum);
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад