Составьте программу Паскаль вычисления суммы натуральных чисел не превышающих заданного числа N
Сумма чисел от 1 до N = (N+1)*N/2
Var a,n,i:integer; Begin Write('Введите число '); Readln(n); for i:= 1 to n do a:=a+i; Write('Сумма всех натуральных чисел до n (включительно) равна ',a); End.
мне кажется смысл задачи был не в этом
хотя кто его знает, смысл двоякий получается
программа идет, получилось все правильно
ну тогда ок. Я выше привёл формулу - которая упрощает код программы.
спасибо
Возьму формулу на вооружение!
её можно доработать для условия сумма чисел от А до B