GAECHKA
Твоя помощница в решении задач

Преобразуйте строку, заменив в ней каждую точку многоточием

Нужно написать код,так чтобы удаляло ненужные элементы и добавляло дополнительные точки.
0
вопрос задан

Источник


1 ответ
Решение
program point;
var
  a: string;
  i: integer;
begin
writeln('Введите строку:');
Readln(a);
i:=1;
while i (a) do
    begin
    if copy(a,i,3) = '...' then
       i:= i + 2
    else
    if copy(a,i,2) = '..' then
       i:= i + 1
       else
    if copy(a,i,1) = '.' then
       begin
       delete(a,i,1);
       insert('...',a,i);
       i:= i + 2;
       end;
      i:=i+1;
      end;
Writeln(a);
readln;
end.