Ответ: Я так понимаю вам нужна программа на Паскалеprogram zadacha;var s,k,n,p,i:integer;begins:=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.