PBCDIV - Phép chia hết

Tác giả: ladpro98

Ngôn ngữ: Pascal

program pbcdiv;
uses    math;
const   fi='';
var     a,b,m,n,p:int64;
        t,i:longint;
        inp:text;

function calc(i:longint):int64;
var     x,y:int64;
begin
        if a mod i = 0 then x:=a else
        x:=i-(a mod i)+a;
        if b mod i =0 then y:=b else
        y:=b - (b mod i);
        exit((y-x) div i +1);
end;

begin
        assign(inp,fi);
        reset(inp);
        readln(inp,t);
        for i:=1 to t do
        begin
                readln(inp,a,b);
                m:=calc(60);
                n:=calc(12);
                p:=calc(30);
                writeln(n+p-m-m);

        end;
        close(inp);
end.

Download