Ответы на вопрос:
Var a,s: integer; b: byte; begin writeln('введи число'); readln(a); writeln('введи цифру'); readln(b); s: =0; while a> 0 do begin if a mod 10 = b then s: =s+1; a: =a div 10 end; writeln(s) end.
Популярно: Информатика
-
Gsjhcf01.12.2021 10:24
-
Шаурма111111127.06.2020 16:23
-
ellykhrom14.12.2020 05:42
-
sebtetfGек5у15.06.2020 21:35
-
zaharsteam11.05.2020 05:47
-
angel49114.08.2021 23:54
-
данил204812.06.2020 04:58
-
Zhanna27825.01.2022 20:29
-
Uprava19.09.2020 17:45
-
яяя61223.05.2020 20:43