Текстовый редактор - программа, предназначенная для создания, редактирования и форматирования текстовой информации 2работы с изображениями в процессе создания игровых программ ресурсами пк при создании документов 4автоматического перевода с символьных языков в машинные коды

Ну если выбирать ответ то это 1  оо"

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.rows.selectmany(x-> x).toarray;   var nn: =readinteger('1. введите число n: ');   write('максимальный из элементов, не превосходящий n');   if nn< b.min then writeln(', не существует')   else writeln(', равен ',b.where(x-> x< =nn).max);   write('2. максимальный элемент в массиве [');   var i: =b.indexmax;   writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end. пример количество строк в массиве: 5 количество столбцов в массиве: 9 *** исходный массив [5,9] ***   -18 -13  16  23 -14 -30 -12  -2  -2   -34  11 -47 -35  20  44  29 -36  46     2 -28 -35  -6  38  -9  -2    8 -10     3  16    5 -20    8    5  48    7 -33   -25    3  30 -35 -10  22 -11  42 -44 1. введите число n: 31 максимальный из элементов, не превосходящий n, равен 30 2. максимальный элемент в массиве [4,7]=48

pascalabc.net

function isprime(n: integer): boolean;   // простое?

begin

  if n < = 1 then

  begin

    result : = false;

    exit

  end;

  result : = true;

  var (j, r) : = (2, round(sqrt(;

  while result and (j < = r) do

    if n mod j = 0 then

    begin

      result : = false;

      exit

    end

    else

      j += 1;

end;

function ishyperprime(n: integer): boolean; // гиперпростое?

begin

  result : = false;

  var k : = 10;

  while n > 10 do

  begin

    n : = n div 10;  

    if not isprime(n) then exit

  end;  

  result : = true

end;

begin

  var (a, b) : = readinteger2;

  var found : = false;

  foreach var n in range(a, b) do

    if isprime(n) then // найдено простоe число

      if ishyperprime(n) then

      begin

        found : = true;

        n.print

      end;

  if not found then

    write(0)

end.