Дана строка c определить какие буквы стоят на нечетных местах и вывести их
183
224
Ответы на вопрос:
var s: string;
i: integer;
begin
write ('введите строку: ');
readln (s);
write ('нечётные символы: ');
for i: =1 to length(s) do
if i mod 2 < > 0 then write (s[i],' ')
end.
Популярно: Информатика
-
iuliaminakowa20.05.2023 02:15
-
vektar123417.09.2020 21:55
-
xfcsfttvd07.05.2023 00:17
-
знайка5688402.03.2022 03:37
-
МашаНяша0128.06.2022 14:11
-
Анютка005516.01.2021 21:10
-
Elena20720731.10.2022 12:04
-
YuliyaSchool04.11.2021 19:13
-
Poniy1122.06.2023 06:20
-
123456789124313.02.2023 14:39