найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10
ПОМОГИТЕ СРОЧНО. ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!
More Questions From This User See All
найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10
ПОМОГИТЕ СРОЧНО. ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.