program bai_giai;
uses crt;
var a,b,s,c,k,t,d,i:longint;
begin
 clrscr;
  write('nhap a:');readln(a);
  write('nhap b:');readln(b);
  write('nhap s:');readln(s);
  for i:=a to b do
        begin
         c:=i;
         t:=0;
         while c<>0 do
                begin
                 k:=c mod 10;
                 c:=c div 10;
                 t:=t+k;
                end;
         if(t=s)then inc(d);
        end;
  write('ket qua:=',d);
 readln;
end.

uses crt;
var a, b, s, cnt, i: longint;

function sumDigits(n: longint): longint;
var i, res: longint;
    s: string;
begin
    str(n, s);
    res:=0;
    for i:=1 to length(s) do res:=res + ord(s[i]) - 48;
    exit(res);
end;

begin
clrscr;
    read(a, b, s);
    for i:=a to b do
        if sumDigits(i) = s then inc(cnt);
    writeln(cnt);
readln; readln;
end.