Сборник по информатике содержит 11 страниц. сколько цифр потребуется, чтобы перенумеровать все страницы?

в числах с 1 по 11 содержится 9+2*2=13 цифр

Const k = 13; var a: array[1..k] of integer; i: integer; s: real; begin write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; writeln; {первое : } for i: = 1 to k div 2 do       s: =s+a[i]; writeln('s = ',s); {второе : } s: =0; for i: = 1 to k do       if i mod 2 = 0 then s: =s+a[i]; writeln('s = ',s); {третье } s: =1; for i: = 1 to k do       if i mod 2 < > 0 then s: =s*a[i]; writeln('s = ',s); {четвёртое : } s: =0; for i: = 1 to k do       if (a[i] mod 2 = 0)and(i mod 2 = 0) then s: =s+a[i]; writeln('s = ',s); end.

Const n=10; var a,d: array[1..n] of integer; k,i,j,t: integer;   begin randomize; for i: =1 to n do begin   a[i]: =random(900)+100;   write(a[i]: 4);   end; writeln; writeln('количество делителей: '); for i: =1 to n do begin   k: =2;   for j: =2 to a[i] div 2 do   if a[i] mod j = 0 then k: =k+1;   d[i]: =k;   write(d[i]: 4);   end; writeln; for i: =1 to n-1 do   for j: =1 to n-i do     if d[j]> d[j+1] then     begin      t: =d[j]; d[j]: =d[j+1]; d[j+1]: =t;     t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t;     end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln end. пример:   882 524 890 505 911 792 772 458 507 368 количество делителей:   18   6   8   4   2   24   6   4   6   10 отсортированный массив: 911 505 458 524 772 507 890 368 882 792