Question

Найдите сумму чисел от -50 до 100 pascal ABC (8класс)

Answer 1

program n;

Var

 i,s: Integer;

BEGIN

s:=0;

For i:=-50 to 100 do

s:=s+i;

Writeln('Сумма чисел от -51 до 100 = ',s);

Readln

END.

Answer 2

Чтобы найти сумму чисел от -50 до 100, мы можем воспользоваться формулой для суммы арифметической прогрессии:

S = (n/2) * (a + b),

где S - сумма, n - количество чисел в прогрессии, a - первое число, b - последнее число.

В данном случае у нас имеется последовательность от -50 до 100, включая оба конца. Поэтому: n = (100 - (-50)) + 1 = 151, a = -50, b = 100.

Теперь мы можем подставить значения в формулу и вычислить сумму:

S = (151/2) * (-50 + 100) = 75 * 50 = 3750.

Итак, сумма чисел от -50 до 100 равна 3750.