Выполнить деление двоичной системы счисления 100111/11

Твой ответ на пример = 1 101

Program lab; uses crt; vari,a: integer; m: array [1 .. 30] of integer; begin    clrscr; // очистка экрана    randomize; // инициализирует рандом    a: =0; // инициализирует аккумулятор    for i: =1 to 30 do        m[i] : = random(1000); // заполняет массив рандомными числами    for i: =1 to 30 do        if ((m[i] mod 17) = 0) or ((m[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен             a : = a + m[i]; // то добавить число к сумме    // если аккумулятор больше 0, то вывести вывести его значение    if a> 0 then writeln('a = ',a)    // иначе вывести "чисел нет"    else writeln('чисел нет'); end.

Горячие клавиши инструменты: a — аэpогpаф (airbrush) в — кисть (brush) с — рамка (crop) e — ластик (eraser) f — режим (окно/весь экpан с меню/весь экpан без меню) g — гpадиент (gradient) h — рyка (hand) i — пипетка (eyedropper) k — заливка (paint bucket) l — лассо (lasso) м — область (marquee) n — линия (line) o — тониpование (toning tools) p — каpандаш (pencil) q — быстpая маска (quick mask) r — фокyс (focus tools) s — штамп (stamp) t — палитpа контypы (path) u — палец (smudge tool) v — пеpемещение (move) w — волшебная палочка (magic wand) y — текст (text) z — масштаб (zoom) x — поменять местами фоновый и основной цвета d — сбросить цвет/фон в черный и белый [ - пpедyдыщая кисть ] — следyющая кисти