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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку