Ответы на вопрос:
Var s: string; i,r: integer; begin s: ='система программирования и язык pascal нового поколения для платформы microsoft .net, pascal содержащий все основные элементы современных языков программирования: модули, '; for i: =2 to length(s) do if s[1] = s[i] then r: = r +1; write(r); end.
Популярно: Информатика
-
nata96020.09.2020 12:14
-
Rorschach00106.02.2020 10:24
-
СоникДляТебя6716.09.2021 19:55
-
Nadin1820.01.2023 18:46
-
tutuginovvan10.03.2023 21:23
-
gaga224403.02.2021 22:30
-
франческа03312.07.2021 23:31
-
alex01020306.07.2021 04:48
-
Поняха7412.12.2021 20:26
-
yana01709.02.2022 05:21