zada4a

[buntarka]

Вводятся два числа N и K. Выведите количество чисел из диапазона от 1 до N включительно таких, что их сумма цифр делится на K

Examples

Input Output
100 3 33



22 4 5
напишите код, плиз...заранее спасибо)

[Mad_Cat]

(*Pascal/delphi*)
function SumDigit(N:Integer):integer;
var s:integer;
 begin s := 0;
  while(n <> 0)do
  begin
  s := s + (n mod 10);
  n := n div 10;
   end;
    SumDigit:=s;
    end;
 var i, n, c,k:integer;
 begin
 readln(n,k);
 c:=0;
 For i:=1 to n do
 if Sumdigit(i) mod k=0 then inc(c);
 writeln(c);
 end.