Выясните , каким будет результат вычислений, если исходное число уменьшить на 24

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

друг сказал) если не правильно извини, но он вродь хорош в информе

ну в метро, или если ты турист то картой, не?

ход решения таков:

набрать кувшин 8 л. из него отлить в кувшин 3 л. затем вылить эти 3 л. затем опять отлить из 8литрового в кувшин 3 л. оставшаяся вода в 8литровом кувшине =2 л. переливаешь в 3литровый. потом набираешь полный 8литровый. из него доливаешь воды в 3литровый, т.е. 1 л. остается 7 л.