Var
n,i : Integer;
Begin
Readln(n);
i:=1;
While (i+1)*i div 2<=n do Inc(i);
Writeln(i);
end.
Приложение.......................................................
Если число дано в десятичной системе счисления, то в двоичной системе получится 111001,01, в восьмиричной 71,2, в шестнадцатиричной 39,4