Ответы на вопрос:
якщо (происходе дія) то повторити 10 разів, а якщо ні(або інакше) то повторити 20 разів
Var s: string; c: char; i: integer; begin writeln('введите строку: '); readln(s); for i: =0 to length(s) div 3-1 do begin c: =s[3*i+3]; s[3*i+3]: =s[3*i+2]; s[3*i+2]: =s[3*i+1]; s[3*i+1]: =c; end; writeln(s); end. пример: primer, begin, end.iprrmeb, ieg n,den.
Популярно: Информатика
-
korolnn12.01.2020 16:07
-
13SCHOOL1330.04.2021 20:48
-
gggnnn30.03.2020 13:25
-
yuakomlev30.06.2023 11:24
-
pavelivanov199ozg2xn11.07.2021 19:21
-
Ринатеовллктаоа26.04.2023 17:30
-
tyutyunnik200220.04.2020 09:27
-
leimaegirl05.06.2023 19:09
-
Элаизааа09.06.2020 02:59
-
RomochkaRomashka08.09.2022 04:02