Problem5 1から20までの整数全てで割り切れる最小の値

2520は1から10の数字の全ての整数で割り切れる数字であり、そのような数字の中では最小の値である。
では、1から20までの整数全てで割り切れる数字の中で最小の値はいくらになるか。

SQL

declare
    TargetNum pls_Integer:=1;
    IsAnswer boolean;
begin
    Loop
        IsAnswer := true;
        for I in 2..20 Loop
            if mod(TargetNum,I) != 0 then
                IsAnswer := false; exit;
            end if;
        end Loop;
        exit when IsAnswer;
        TargetNum := TargetNum+1;
    end Loop;
    DBMS_Output.Put_Line('Answer=' || to_char(TargetNum));
end;
/

実行結果

Answer=232792560

解説

exit文が意外と役に立ってます。

C#での解