Разгадайте 1. соединяет устройство пк. 2. 3. устройство ввода информации в компьютер. 4. вид монитора 5. часть устройства из пункта 3 6. манипулятор, используемый для компьютерных игр 7. другое название монитора 8.на нем работали компьютеры 2-го поколения 9. устройство для чтения и записи дисков 10. у каждого символа он свой, например, у буквы а-11100000 11. кем был отец первой в мире программистке 12. человек, который изобрел первую в мире механическую вычислительную машину

10-двоичный код, 7- экран

Выполняя алгоритм, получаем следующий результат (15 итераций) 1. 0..65534 -> 32767 2. 0..32766 -> 16383 3. 0..16382 -> 8191 4. 0..8190   -> 4095 5. 0..4094   -> 2047 6. 2048..4094 -> 3071 7. 2048..3070 -> 2559 8. 2560..3070 -> 2815 9. 2816..3070 -> 2943 10. 2944..3070 -> 3007 11. 2944..3006 -> 2975 12. 2976..3006 -> 2991 13. 2992..3006 -> 2999 14. 3000..3006 -> 3003 15. 3000..3002 -> 3001если лень перебирать вручную, можно воспользоваться программойvar k,l,r,x,f: integer; beginf : = 3001; l : = 0; r : = 65534; x : = (l + r) div 2; k : = 1; while (x < > f) and (l < r) do  begin  writeln(k,' ',l,' ',r,' ',x);   k : = k + 1;   if f < x then r : = x - 1    else l : = x + 1;   x : = (l + r) div 2  end; writeln(k,' ',l,' ',r,' ',x); end.

1. var x,s: integer; begin read(x); s : = 0; while x > 0 do   begin   if x mod 10 < 6 then s : = s + 1; {здесь была ошибка}   x : = x div 10   end; write(s) end.2.var x,s: integer; beginread(x); s : = x mod 10; while x > 10 do  x : = x div 10; write(x + s)end.3.var x,a,b: integer; beginread(x); a : = x mod 10; b : = x mod 10; while x > 0 do      begin      if x mod 10 > a then a : = x mod 10;       if x mod 10 < b then b : = x mod 10;       x : = x div 10;       end; write(a + b)end.