/UOCLE - Ước lẻ

<Problem>

http://ntucoder.net/Problem/Details/3267
              uses crt;
        var a,b:int64; n,i:longint;
        begin
            readln(n);
            for i:=1 to n do begin read(a,b);writeln(trunc(sqrt(b))-trunc(sqrt(a-1))); end;
            readln;
        end.