Рассмотрите электронную таблицу​

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(n)));

 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.

#include <iostream>

using namespace std;

int main()

{

const int n = 7;

int mas[n][n] = {

{0, 1, 1, 1, 1, 1, 0},

{3, 0, 1, 1, 1, 0, 4},

{3, 3, 0, 1, 0, 4, 4},

{3, 3, 3, 0, 4, 4, 4},

{3, 3, 0, 2, 0, 4, 4},

{3, 0, 2, 2, 2, 0, 4},

{0, 2, 2, 2, 2, 2, 0}};//инициализируем матрицу

for (int jjj = 0; jjj < (n - 1) / 2; jjj++)

for (int kkk = 1; kkk < n - 1; kkk++)

swap(mas[jjj][kkk], mas[n - 1 - jjj][kkk]);// меняем верхний с нижним

for (int jjj = 0; jjj < (n - 1) / 2; jjj++)

for (int kkk = 1; kkk < n - 1; kkk++)

swap(mas[kkk][jjj], mas[kkk][n - 1 - jjj]);// меняем правый с левым

for (int jjj = 0; jjj < n; jjj++)

{

for (int kkk = 0; kkk < n; kkk++)

cout << mas[jjj][kkk] << " ";

cout << endl;

};//выводим матрицу

}