11-7 王様の財宝

SQLパズル

ある国の王様の財宝の数ｘは、
この数ｘを６倍し、その３／４を加え、
それを７で割ってから、商の１／３を引いて、
それを２乗したあと、さらに５２を引いて、
その平方根に９を足し、７で割ると３になる数だそうです。
王様の財宝の数ｘを求めて下さい。

王様の財宝

SQL

declare
    X number;
begin
    for i in 1..10000 Loop
        X := i;
        x:=x*6*(1+3/4);
        x:=x/7-x/7/3;
        x:=power(x,2)-52;
        if x > 0 then
            x:=sqrt(x)+9;
            x:=x/7;
            if x = 3 then
                DBMS_Output.Put_Line('財宝の数は' || to_char(i));
            end if;
        end if;
    end Loop;
end;
/

解説

for文を使って順番にチェックしてます。

---