Описать ! 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.
Вводим строку. Пробегаем по всей ее длине и каждый символ по очереди записываем в новуйу строку, если же встречаем точку, то записываем вместо нее троеточие Короче - заменяем все точки строки на троеточия
Результат - после первой точки в строку вставляются точки в количестве, равном количеству символов, считая от позиции этой точки до конца строки в её первоначальном виде. Остальные символы из первичного вида строки останутся неизменными, следуя за полученным набором точек.
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.
Вводим строку. Пробегаем по всей ее длине и каждый символ по очереди записываем в новуйу строку, если же встречаем точку, то записываем вместо нее троеточие
Короче - заменяем все точки строки на троеточия