Прошу в написании ! сколько букв "у" в заданном слове стоит на четных местах? (тема -операции над массивами)
107
282
Ответы на вопрос:
Var s: string; k,i: integer; begin writeln('vvedite slovo'); readln(s); for i : = 1 to length(s) do if (s[i]='y') and (i mod 2=0) then inc(k); writeln ('k=',k); readln ; end.
Популярно: Информатика
-
zoology1g30.04.2022 00:53
-
olegiwanow28.02.2023 05:09
-
Zay456519.01.2020 12:19
-
ЧерриБерри29.07.2022 16:23
-
svetaaa7713.02.2021 11:13
-
ВКГ117.02.2022 04:20
-
elenamatveeva331.08.2022 23:22
-
mama148809.10.2022 14:08
-
narutogovno01.04.2023 10:35
-
mirvera200717.01.2023 15:45