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

Var i, n, sum: integer; begin     sum : = 0;     readln (n);     for i : = 1 to n do  sum : = sum + i;     writeln (sum); end.

Uses crt; var n, a, b, k: integer; begin      k: =0;       writeln ('сколько цифр будет в строке? ');       read (n);       writeln ('вводите числа, после каждого enter.');       read (b);       for n: =1 to n-1 do      begin      read (a);       if a+1=b then k: =k+1 else      if a-1=b then k: =k+1;       end;       writeln ('количество чисел отстающих на 1 от первого числа - ',k); end.

По степени преобразования различают первичную и производную информацию. первичная информация сохраняется или используется в том виде, в каком была получена. основной метод ее образования — первичный учет (пересчет, перевес, проверка по качеству), а также использование данных входящих документов в неизменном виде.   преобразованая информация получается путем переработки первичной. она формируется в результате составления отчетов на основе учетных данных или заимствования полученной первичной информации (составление карточек количественно-суммового учета и журнала регистрации движения товаров на основе товаросопроводительных документов). надеюсь  вам.