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;
};//выводим матрицу
}
Выполнение команд
Объяснение:
При нажатии клавиши происходит выборка данных, затем ее обработка - декодирование, за отображение на экране отвечает функция вывода, в частности, на экран монитора. Данный процесс описывает функцию выполнения команд.