Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.