Ответы на вопрос:
Под а 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.
Популярно: Информатика
-
Генгстер15.04.2023 17:20
-
Катюшка31100119.06.2021 07:35
-
ира101404.08.2020 16:25
-
Leonid02super20.06.2023 03:50
-
danilovairinka12.02.2020 07:19
-
ДарьяГусева1307.08.2022 22:52
-
2x246623.06.2020 16:52
-
макспростомакс123.04.2023 06:06
-
фелицист28.10.2020 20:35
-
lenaguceva03.11.2021 17:03