var
a, b, u, v, i, num : integer;
begin
readln(a, b, u, v);
num := 0;
for i := a to b do begin
if (i mod u = 0) or (i mod v = 0) then inc(num);
end;
writeln(num);
end.
输入：1 1000 10 15
输出：133