program ct;

uses crt;

const vao='CH.INP';

          ra='CH.OUT';

var i,m,n,k,d:integer;

      v,r:text;

begin clrscr;

   assign(v,vao); reset(v);

   assign(r,ra); rewrite(r);

   readln(v,m,n,k);

   for i:=m to n do

     if i mod k=0 then inc(d);

   writeln(r,d);

   close(v);

   close(r);

readln;

end.

Học tốt!

uses crt;
var m,n,k,i,d : integer;
begin clrscr;
d:=0;
assign(input,'CH.INP');
assign(output,'CH.OUT');
reset(input); rewrite(output);
read(input,m,n,k);
for i:=m to n do if (i mod k = 0 ) then d:=d+1;
write(output,d);
close(input); close(output);
readln
end.