На бесконечном поле имеется стена, состоящая из 5 последовательных отрезков, расположенных змейкой: вниз, вправо, вверх, вправо, вниз. все отрезки неизвестной длины. робот находится в клетке, расположенной слева от верхнего края первой вертикальной стены. на рисунке указан один из возможных способов расположения стен и робота (робот обозначен буквой «р»).напишите для робота алгоритм, закрашивающий все клетки, расположенные левее первого и ниже второго отрезков стены и ниже четвёртого и левее пятого отрезков стены. робот должен закрасить только клетки, удовлетворяющие данному условию. например, для выше рисунка робот должен закрасить следующие клетки (см. рисунок).при исполнении алгоритма робот не должен разрушиться, выполнение алгоритма должно завершиться. конечное расположение робота может быть произвольным. алгоритм должен решать для любого допустимого расположения стен и любого расположения и размера проходов внутри стен.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

100*1000000/8=12500000 байт в секунду

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

сначала 9кбайт переделываем просто в байты. поэтому 9*1024=9216. потом переводим в биты? 9216*8=73728. и делим на 2048. получается 36 секунд.