Найти сумму квадратов всех целых чисел от -10 до b(b больше =-10)
Найти сумму квадратов всех целых чисел от -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.
ГостьProgram summa; Uses crt; Var i, s,b:integer; Begin Write('Введите число ,b='); Readln(b); For i:= -10 to b do s:=s+sqr(i); Writeln('Сумма квадратов = ',s); End.
Не нашли ответ?
Похожие вопросы