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

var i,n,x: integer; a: array [1..100] of integer; beginwrite('введите n: '); readln(n); for i: =0 to n dox: =x+i; write(x); end.

Любой файл можно сохранить с любым разрешением, поэтому, вообще говоря, по разрешению сказать, что это, текст программы или нет, нельзя. если говорить только о расширениях, которые предлагаются по умолчанию, то: 1. xls - книга excel2. jpg - изображение jpeg3. pas -  программа на языке pascal4. avi - видео5. doc - документ word6. cpp -  программа на языке c++7. rtf -  текстовый документ с форматированием8. gif - изображение gif9. wav - звуковой файл10. txt - текстовый файл11. zip - архив12. java -  программа на языке java13. py -  программа на языке pythonв комментарии возник вопрос, не являются ли файлы .doc, .xls программами, ведь они могут содержать макросы, написанные на языке vba.ответ на этот вопрос скорее нет, чем да. во-первых, .doc, .xls файлы действительно поддерживают макросы, но это не главное предназначение таких файлов, они могут, но не обязаны содержать программный код (в отличие от собственно тестов программ). с таким же успехом excel можно было бы называть графическим редактором, ведь в нём можно создавать несложные изображения и открывать и изменять некоторые графические файлы.  во-вторых,  .xls, .doc - это  контейнеры, примерно такие же, что и .zip, только хранящие текст, картинки, разметку, макросы, и другие интересные вещи. кстати, новые форматы .xlsx, .docx - и вовсе zip-архивы, открываются архиваторами

***первая *** var a: array [1..100]of integer; n,i,fl,sum,len: integer; s : string; begin  writeln('введите n') ;   readln(n);                   for i: =1 to n do                  readln(a[i]);   sum: =0;   fl: =0;                   for i: =1 to n do                  begin                  str(a[i], s);                   len: =length(s);                     if ((a[i]mod 6=0)and(s[len]='4')) then                        begin                          sum: =sum+a[i];                           fl: =1;                         end;                   end; if (fl=1)then writeln('сумма=',sum); if(fl=0) then writeln('нет'); end. ****тестовый ввод **** 5 24 1 1 24 3 **** вывод сумма = 48 ***** вторая. пометка ! ввод нуля останавливает программу (исходя из условия оканчивающихся на 0)******** var i,max,fl: integer; begin i: =1; max: =0; fl: =0;         while(i< > 0) do         begin           readln(i);           if((i mod 3=0)and(i> max)) then               begin               max: =i;               fl: =1;               end;           end; if (fl=1) then writeln('максимальный =',max); if (fl=0) then writeln('нет'); end. ****тестовый ввод **** 3 4 9 8 6 0 **** вывод максимальный = 9