Var a, b, u, i, num : integer;
begin
readln(a,b,u);
num := 0;
for i:= a to b do
begin
if (i mod u = 0) then inc(num);
end;
writeln(num);
end.
输入：1 100 15
输出：6