Знайти суму всіх натуральних чисел від 1 до n

Знайти суму всіх натуральних чисел від 1 до n
Гость
Ответ(ы) на вопрос:
Гость
var n,i,s:integer; begin write('n = '); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln('s = ',s); end. Пример: n = 5 s = 15
Не нашли ответ?
Ответить на вопрос
Похожие вопросы