Ответы на вопрос:
Исходный текст поместить в ячейку a1, результат будет в а2 sub rep() n1 = asc(" ") n = asc("я") - n1 + 1 randomize timer s = cells(1, 1).value for i = 1 to len(s) if mid(s, i, 1) = "а" then mid(s, i, 1) = chr(int(n * rnd + n1)) end if next i cells(2, 1).value = s end sub тестовое решение: наша маша - растеряша! н3шю мhш# - рястеряшм!
Популярно: Информатика
-
8928666666615.12.2020 16:12
-
Kachmaresghg14.05.2022 00:29
-
fvbh3fvhc10.07.2022 09:45
-
stasamaca09.04.2023 23:35
-
hcunvakjb13.05.2022 05:55
-
varvara08301704.10.2020 19:27
-
sddssddd22.08.2020 16:30
-
НикаНетУбежал22.05.2021 13:43
-
ssmir738129.12.2022 18:49
-
iZANAVESKAi11.05.2021 13:56