Ответы на вопрос:
Под а program p1; var a,b , b1,a1,k: integer; begin read(a); k: =1; b: =a mod 10; a1: =a div 10; while a1< > 0 do beginb1: =a1 mod 10; if b1=b then k: =k+1; a1: =a1 div 10; end; write(k); end.
Популярно: Информатика
-
Стас66622821.03.2021 07:42
-
Alou1605.03.2021 18:01
-
alinaalina06008.09.2022 20:29
-
коля85603.06.2020 16:56
-
romabryuxachev04.04.2021 15:13
-
Qurin16.11.2022 10:23
-
LiGiBi2106.03.2022 16:31
-
Vanomasssss02.03.2023 07:34
-
VolkYula6923.10.2021 04:22
-
znaniyasveta22.04.2021 02:34