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

0 голосов
74 просмотров

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


Информатика (16 баллов) | 74 просмотров
Дан 1 ответ
0 голосов
var
  n, i: integer;
  S: string;
begin
  readln(n);
  readln(S);
  i := 1;
  while (i <= n) do<br>  begin
    if (S[i] = '.') then
    begin
      insert('..', S, i);
      i := i + 2;
      n := n + 2;
    end;
    i := i + 1;
  end;
  writeln(S);
end.
(16.9k баллов)
0

Turbo Pascal?

0

Ага