Question

Составить программу нахождения суммы чисел от 1 до 55(В тетради)

Answer 1

1. "В лоб"

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  1.To(55).Sum.Println
end.

Результат
1540

2. Вспомнив про арифметическую прогрессию

$\displaystyle S= \frac{2a_1+d(n-1)}{2}n; \qquad a_1=1, d=1, n=55 \\ \\ S= \frac{2\cdot 1+1\cdot54}{2}\cdot55 = \frac{56\cdot55}{2}=28\cdot55=1540$