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

[илья-т]

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

проверьте пожалуйста как правильно

Var N, i: integer;
begin
readln(N);
i:=1;
while i<=N do
begin 
i:=i+(i+1);
end;
writeln(i);
end.

так или так

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

[digitalis]

1. Надо форматировать код, а то - каша (отступы, тег #).
2. Второе было бы правильно, если проинициализировать нулем sum. Никогда не надо надеяться, что это сделает Блез Паскаль
3. Первый вариант - СБСК . Чтобы в этом убедиться, достаточно включить трассирование - writeln внутри цикла.

var
n, i, sum: integer;

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

или

   sum := 1 ;
   read(n);
   for i := 2 to n do sum := sum + i;

[Аватар]

А цикл обязателен? Правильней и проще, зная свойства арифметической прогрессии:

sum:=((1+n)*n) div 2;

[digitalis]

Ну это уже будет "Арифметика" Магницкого, а не программирование

[Аватар]

Зато эффективное программирование ) Пусть и арифметика. Да оно все программирование арифметика чистой воды

[digitalis]

Дык показывать преподу одну строчку - не комильфо. Где же тут предъявишь ему свои прокачанные skills