Вам даны число N и цифра…

Извращенно, но главное, что работает: uses crt; var n,d,j,m: integer; i,k: string; flag: byte; beginread (n,d); i: ='1'; k: ='9'; while length (i)