. Записать в поле длиной 3 байта число 0111000101101012. Пронумеровать разряды.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

10000 байт = 10000 : 2^10 кб = 9,8 кб

10000 байт = 10000 : 2^20 мб = 0, 009 мб

600000 байт = 600000 : 2^10 = 586 кб

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10