AtCoder Beginner Contest 436 A

https://atcoder.jp/contests/abc436/tasks/abc436_a

Rで解いていきます。
まず入力ですが、scanでホワイトスペース区切りで全部読み取ってvectorにします。第2引数をcharacter()にすると文字列の、integer()にすると整数のvectorになります。
出力はcatを使います。

v <- scan("stdin", character())
n <- as.integer(v[1])
s <- v[2]
while(nchar(s) < n) {
    s <- paste("o", s, sep="")
}
cat(s, "\n")

これでもクリアしますが、 $O(n^2)$ になってしまいますね。
次のようにpasteをcollapse付きで使うと、"o"が連続する文字列を作ることができます。

v <- scan("stdin", character())
n <- as.integer(v[1])
s0 <- v[2]
o_rep <- paste(rep("o", n-nchar(s0)), collapse="")
s <- paste(o_rep, s0, sep="")
cat(s, "\n")