Ответы на вопрос:
Если это надо сделать в Кумире, то вот программа:
использовать Робот
алг
нач
нц пока справа свободно
вправо
если сверху стена то закрасить всё
кц
нц пока справа стена
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа стена
закрасить
вниз
кц
кон
Var s,ns: string; i: integer; begin write('введите строку символов: '); readln(s); ns: =''; for i: =1 to length(s) do ns: =ns+s[i]+s[i]+s[i]; writeln('новая строка: ',ns); end.
Популярно: Информатика
-
1Yuki213.02.2020 03:22
-
Рабка27.01.2022 11:43
-
Кирилл62а20.02.2023 10:45
-
G8910.10.2020 05:45
-
ImmortalSpirit09.12.2021 13:23
-
PHVRVOH09.02.2023 02:08
-
adri12109.07.2021 21:32
-
Тролечка16.08.2022 01:49
-
Ventana126302.05.2023 19:29
-
DarvinaDark18.06.2022 21:57