Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать данную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать данную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы