Составь алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного с...

Question

Составь алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного с клавиатуры натурального числа N. Напиши программу на Паскале.

Answer 1

var
n, sum : integer;
begin
write('a? ');
readln ( a);
for var i := 1 to n-1 do sum := sum + i;
writeln(' сумма=', sum);
end.

Comments

можешь 2 решить еще

---

??

---

тут ошибку исправил sum := sum + i;