Deskripsi untuk soal nomor 35 - 36

Perhatikan potongan program berikut:

function piring(x:longint):longint;
begin
    piring := 1;
    while x mod 2 = 0 do
    begin
         piring := piring * 2;
         x := x div 2;
    end;
end;

function gelas(x,y:longint):longint;
begin
    gelas := 0;
    if x<=y then gelas := piring(x) + gelas(x+1,y);
end;