Как сделать так что бы программа в Паскале складывала числа, например от 1 до 10 (1 и 10 включительно)

0
Лучший ответ

Можно сложить с помощью цикла:

var

i, s, a, b: integer;

begin

readln(a, b);

s := 0;

for i:=a to b do

s := s + i;

writeln(s);

end.

А можно с помощью формулы суммы первых n-членов арифметической прогрессии:

var

s, a, b: integer;

begin

readln(a, b);

s := trunc(((a+b) / 2)*(b-a+1));

writeln(s);

end.

+2
Обновлено 3 месяца назад
Ещё 1 ответ

Проще использовать формулу арифметической прогрессии. Быстрее посчитать по ней. Формула:

Сумма арифметической прогрессии =

image.png

где d - насколько увеличивается каждый следующий член по отношению к предыдущему, a1 - начальный член ряда, n - количество членов в ряде.

В Вашем случае:

a1 = 1, d = 1, n - сколько пожелаете сложить чисел.

Далее используем формулу и считаем. Несложно.

0
Обновлено 2 месяца назад