Впиши на двух схемах состава слова из списка. наушник спица телефон стержень корпус купол диск провод рукоятка трубка зонтик микрофон

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

             

234567891011121314151617181920212223procedure countingsort(var x: array of integer; min, max: integer); var  counter: array[0..100000] of integer;   i, j, index: integer; begin  // для всех элементов массива  // указываем значение ноль  for i: =0 to high(counter)    do tmpx[i]: =0;   for i: =min to max    do counter[ar[i]]: =counter[ar[i]]+1;   // устанавливаем значение  // в  правильную позицию  index: =min;   for i: =min to high(counter)-1 do    begin      for j: =0 to counter[i]-1 do        begin          ar[index]: =i;           index: =index+1;         end;     end; end;

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию var       a, b: integer; begin       readln(a, b); //      assert((a > 0) and (a < b), 'не верные параметры'); //проверка на дурака если надо             while a < = b do       begin               writeln('квадрат числа ', a, ' = ', a * a);               a : = a + 1;       end; end.