Ответы на вопрос:
Var s1,s2: string; i: integer; begin writeln('введите строку: '); readln(s1); s2: =''; for i: =1 to length(s1) do if s1[i]='и' then s2: =s2+'ии' else s2: =s2+s1[i]; writeln(s2); end. пример: введите строку: напишите программу дублирующую символы напиишиите программу дублиирующую сиимволы
Популярно: Информатика
-
danilkuzin20131.03.2023 22:05
-
УмнаяДебилка23.01.2020 15:09
-
Аниса211128.03.2023 19:54
-
missisleos02.02.2023 09:22
-
kriskuziya070815.01.2020 09:13
-
antonenko6223.01.2022 13:34
-
Demiali4103.10.2020 16:32
-
Ученик13231224.06.2021 15:18
-
Yaklaura11.12.2021 05:19
-
megolodoon11.11.2022 15:38