Помогите описать алгоритм!!!
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.

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.