Описать ! uses crt; var s, sn, sg: string; i: integer; begin write('s='); readln(s); sn: =''; for i: =1 to length(s) do if s[i]='.' then sn: =sn+'' else sn: =sn+s[i]; write('s=', sn); readkey end.

Ачто тут особо описывать? считывается строка, потом в ней делается корявая попытка заменить найденную точку троеточием. поскольку при такой замене появляются две добавочные точки, под замену попадает вторая из вставленных точек и заменяется еще на строка постоянно растет на две точки, они а цикл идет до первоначальной длины строки. результат - после первой точки в строку вставляются точки в количестве, равном количеству символов, считая от позиции этой точки до конца строки в её первоначальном виде. остальные символы из первичного вида строки останутся неизменными, следуя за полученным набором точек.

Uses crt; var s, sn: string;   i: integer; begin   write('s=');   readln(s);   sn : = '';   for i : = 1 to length(s) do            if s[i] = '.' then           sn : = sn + ''       else sn : = sn + s[i];         write('s=', sn);   readkey; end. вводим строку. пробегаем по всей ее длине и каждый символ по очереди записываем в новуйу строку, если же встречаем точку, то записываем вместо нее троеточие короче - заменяем все точки строки на троеточия

Информатика - наука, изучающая информационные аспекты системных процессов и системные аспекты информационных процессов. это определение можно считать системным определением информатики. информатика - это наука об инвариантах (т.е. неизменных сущностях) информационных процессов, о их выявлении, описании, изучении, применении, пространственно-временной организации и самоорганизации. такое определение естественно назвать синергетическим определением информатики и оно имеет важное значение при исследовании синергетики информационных процессов в различных системах. информатика тесно связана и с философией. философия дает общие  методы содержательного анализа, а информатика даёт общие методы формального анализа предметных областей (особенно, теоретическая, информатика). можно дать философское определение информатики: информатика - это наука, изучающая общие свойства и процессы отражения материи, порядок в материи, ее структурированность и отражение в сознании человека, общества. дадим определение информатики (определение  информатики): информатика - наука, изучающая вопросы построения и исследования методов и моделей, алгоритмов, формальных систем для описания и актуализации различных информационных систем и процессов, различных классов операционных пространств. эта – наука, (формальным языком) описывающая и исследующая их инварианты, абстрагируясь при этом от материальной основы информационных процессов. информатике придаёт не только широкое и глубокое использование , формальных методов и средств, а общность и её результатов, их универсальная методологическая направленность в производстве знаний. в этом смысле информатика аналогична , биологии, и др. предмет информатики точно (“”) невозможно определить, в силу его сложности, многосторонности, динамической изменчивости. тем не менее, можно отметить следующие три основные ветви информатики (в классическом понимании), определяемые её познавательной и прагматической функциями, её внутренней и внешней сущностями (заметим, что деление информатики как науки и человеческой деятельности на те или иные части зависит от целей, , ресурсов). теоретическая, информатика (brainware) изучает теоретические проблемы информатики (большей частью связанные с формальными системами, моделями, алгоритмами и теорией программирования, кодирования и организации систем). практическая, прикладная информатика (software) изучает практические, конкретные проблемы информатики (большей частью связанные с программированием и использованием моделей, программными и компьютерными технологиями и системами). техническая, инженерно- информатика (hardware) изучает инженерно-, технические проблемы информатики (большей частью связанные с разработкой и использованием технических средств обработки информации, эвм и систем эвм, сетей). информатика базируется на следующих основных и важных понятиях: информация и сообщение, в частности, получение, переработка, сжатие, актуализация информации сообщениями различного типа; алгоритм и алгоритмизация, в частности, программа и программный комплекс, проектирование программ и программирование;   система и структура, отношение и связь, порядок, выбор, в частности, информационные система и структура, отношения в них; модель и моделирование, в частности, описание и исследование систем с моделей и моделирования; исполнитель и его операционная среда, в частности, эвм и система эвм; языки и грамматики, в частности, алгоритмические языки, языки программирования, языки общения с различными системами и ; проектирование систем и технология, в частности, информационная, компьютерная технология. предметная область науки “информатика” - информационные процессы и системы, модели, языки их описания, технологии их актуализации,  направленные как на получение знаний (это - внутренняя сущность информатики), так и на применение знаний, принятие на их основе решений в различных предметных областях (это - внешняя сущность информатики).  эти информационные процессы могут происходить в живых существах (организмах), автоматах (технических устройствах), обществе, в индивидуальном и общественном сознании.

Const     n = 10; var     a: array[1..n,1..n] of real;     i,j: integer;     s: real; begin randomize; s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random*21-10;               write(a[i,j]: 6: 2,' ');               if j > i then s: =s+a[i,j]               end;       writeln       end; writeln('s = ',s); end.