найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10
ПОМОГИТЕ СРОЧНО. ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
