Определите, сколько цифр d встречается среди целых чисел от 1 до n
Входные данные
Первая строка входных данных содержит 2 целых числа и (1≤n≤100000,0≤d≤9).
Выходные данные
Выведите одно целое число - ответ на задачу.
Пример
входные данные
10 1
выходные данные
2
Примечание
В первом примере цифра 1 встречается по одному разу в числах 1 и 10, поэтому ответ - 2.
Входные данные
Первая строка входных данных содержит 2 целых числа и (1≤n≤100000,0≤d≤9).
Выходные данные
Выведите одно целое число - ответ на задачу.
Пример
входные данные
10 1
выходные данные
2
Примечание
В первом примере цифра 1 встречается по одному разу в числах 1 и 10, поэтому ответ - 2.
More Questions From This User See All
Answers & Comments
Program n1;
function EDN(n: integer; d: integer): integer;
var c: integer;
begin
c:=0;
repeat
if(n mod 10=d) then c:=c+1;
n:=n div 10;
until n=0;
EDN:=c;
end;
var n,d,count,i: integer;
begin
count:=0;
readln(n,d);
for i:=1 to n do count:=count+EDN(i,d);
write(count);
end.