Question

Определите, сколько цифр d встречается среди целых чисел от 1 до n

Входные данные
Первая строка входных данных содержит 2 целых числа и (1≤n≤100000,0≤d≤9).

Выходные данные
Выведите одно целое число - ответ на задачу.

Пример
входные данные
10 1
выходные данные
2
Примечание
В первом примере цифра 1 встречается по одному разу в числах 1 и 10, поэтому ответ - 2.

Answer 1

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.