Question

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

Answer 1

var  
n, i, sum: integer;  
begin  
read(n);  
for i := 1 to n do sum := sum + i;  
writeln(sum);
end.