Ответы на вопрос:
Var s: string; i: integer; begin readln(s); for i: =1 to length(s) do if s[i]='а' then write(s[i]) else write(s[i],s[i]); end.
Популярно: Информатика
-
karinasss123.08.2022 12:55
-
natalyacomandi07.03.2021 14:43
-
RRRR222111114.09.2020 14:46
-
Ylija200204.07.2020 21:45
-
MBmagic07.05.2020 04:06
-
Vovacool2711.07.2020 02:21
-
dimon00722823.05.2020 04:17
-
максимилиан12309801.01.2020 08:36
-
borisrrvdow9kk718.01.2022 13:54
-
eparhomenko20.02.2020 16:07