11-8 白雪姫のリンゴ

SQLパズル

リンゴをｘ個抱えた白雪姫が、７人のこびとに１人ずつ順番に出会いました。
まず、１人目のこびとには、持っていたリンゴ数に１を加えた数の半分をあげました。
次に２人目のこびとには、残っていたリンゴ数に１を加えた数の半分をあげました。
３人目から、７人目まで、同じように残っていたリンゴ数に１を加えた数の半分をあげました。
そして、７人のこびとにリンゴをあげたあと、
白雪姫の手には、１つのリンゴ（毒リンゴ）しか、残っていませんでした。
ｘの値を求めてください。

白雪姫のリンゴ

SQL

declare
    Apple number;
begin
    for i in 1..1000 Loop
        Apple := i;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        Apple := Apple - (Apple+1)/2;
        if Apple = 1 then
            DBMS_Output.Put_Line(to_char(i) || '個');
        end if;
    end Loop;
end;
/

解説

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

---