найти сумму квадратов всех целых чисел от -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.
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад