Поиск числа из промежутка 1..N несёт 6 бит информаций
Чему равно число N?​​

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

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.

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.

был уже такой вопрос отвечен.

от себя

скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов