Ответы на вопрос:
Var a,b: string; i: integer; begin write('введите строку: '); readln(a); b: =''; for i: = 1 to length(a) do b: =b+a[i]+a[i]; write('новая строка: ',b); end.
Популярно: Информатика
-
berezkina0423.01.2023 02:32
-
Kirillpakharenko24.05.2020 16:35
-
BrainDay1205.03.2023 11:23
-
Максим789109.03.2023 15:05
-
CTRAHNK04.02.2020 08:40
-
еаае1ьп26.04.2021 20:19
-
nastyauymionova12.10.2020 05:31
-
airflash137225.03.2023 18:33
-
санти329.08.2021 06:03
-
jaredletoo07.01.2020 03:53