Установите соответствие: 1) логический 2) поле memo 3) счетчик 4) поле объекта ole a) для хранения текста, длина двоичного кода которого не превышает указанного значения б) для хранения сгенерированных программой уникальных данных от 0 и последующего определения поля как первичного ключа в) для хранения объектов произвольного типа, например графического г) для хранения значения логического выражения

// pascalabc.net 3.0, сборка 1128 begin   var k: =readinteger('укажите номер записи k: ');   var a: =readlines('t1.txt').select(x-> length(           where(x-> x< > 0).toarray;   var n: =a.length;   if k> n then writeln('в файле записей меньше, чем ',k)   else writeln('сумма равна ',a.min+a[n-k+1]) end. а теперь "школьный вариант" // pascalabc.net 3.0, сборка 1128 var   t: text;   min,l,m,n,k: integer;   s: string; begin   k: =2; // вторая от конца запись   assign(t,'t1.txt'); reset(t);   min: =1000; m: =0;   while not eof(t) do begin       readln(t,s); inc(m);       l: =length(s);       if (l> 0) and (l< min) then min: =l       end;   close(t); reset(t);   k: =m-k+1;   if k< 1 then writeln('в файле нет стольких строк')   else begin       m: =0;       while m< > k do begin readln(t,s); inc(m) end;       writeln('сумма равна ',min+length(s))       end;   close(t) end.

Такие нужно решать с конца, команды будут обратные: раздели на 2, вычесть 3. 1.  берём число 47, видим, что без остатка на 2 его разделить не получится, поэтому вычитаем 3. получаем число 44. мы использовали команду 1. 2. видим, что теперь число 44 можно разделить на 2, делим, получаем 22. мы использовали команду  2. 3. число опять делится на 2, делим, получаем 11. команда  2.4. 11 не делится на 2, вычитаем 3, получаем 8. команда  1, и т.д. 5. 8/2=4 .  26. 4 - 3 = 1.  1как раз у нас получилось 6 действий. т.к. мы использовали обратные команды, то записываем их обратном порядке. ответ: 121221,