Я так понимаю вам нужна программа на Паскале program zadacha; var s,k,n,p,i:integer; begin s:=0; p:=1; readln(n,k); for i:=1 to n do p:=p*10; for i:=trunc(p/10) to p-1 do if i mod k=0 then s:=s+i; write(s); end.