Question

Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать данную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).

Answer 1

var
  n, i: integer;
  S: string;
begin
  readln(n);
  readln(S);
  i := 1;
  while (i <= n) do
  begin
    if (S[i] = '.') then
    begin
      insert('..', S, i);
      i := i + 2;
      n := n + 2;
    end;
    i := i + 1;
  end;
  writeln(S);
end.