Нарисуйте ввиде кругов пример поискового запроса: чемпионы& (брасс|плавание)

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.

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете