Помощь в написание программы в паскале

{ Сумма натуральных чисел до числа n включительно, если нужно просто до числа n (n>1), не включая само это число, то в цикле for надо будет исправить for i:=1 to n на for i:=1 to n-1, FreePascal: }

Var i,n:integer; s:longint; begin while true do begin write('n = '); readln(n); for i:=1 to n do s:=s+i; writeln(s) end end.

{ Тут главное с типами не запутаться, а то объявишь сумму s типом integer, введёшь n=10000 и получишь в ответе белиберду, потому что сумма ни в целочисленный тип integer, ни в другой целочисленный тип word просто не впишется - по формуле, которую тебе показал Жираф, получится 50005000, что превышает максимальные значения для этих типов. A зачем тут нужен цикл for, если есть такая замечательная формула? Чисто с дидактическими целями - надо сразу уметь пользоваться циклическими, рекурсивными и итерационными алгоритмами, а не чураться их, как чёрт ладана, а иначе цикл for тут, естественно, не нужен! Вот таким образом дальше руку и набивай... }