Криптекс<span>, придуман автором </span>Дэном Брауном<span> в его романе «</span>Код да Винчи<span>» в 2003 году, который обозначал портативное хранилище, используемое для секретных сообщений. </span>Первый рабочий криптекс был создан в 2004 году Джастином Кирком Нэвинсом<span>
</span>
type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.
Var
n, k, i, imax, j: integer;
a: array[1..100]of integer;
begin
randomize;
n := random(30) + 10;
for i := 1 to n do
begin
a[i] := Random(30);
write(a[i], ' ');
end;
writeln();
{сортировочка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
k := a[i];
a[i] := a[imax];
a[imax] := k;
end;
for i := 1 to n do
write(a[i], ' ');
k := 0;
for i := 2 to n - 1 do
if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
k := k + 1;
if a[1] <> a[2] then k := k + 1;
if a[n] <> a[n - 1] then k := k + 1;
writeln();
writeln('No doubles - ', k);
end.
Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
Задание №1
3 × 3 = 9 // умножить на 3
9 + 2 = 11 // прибавить 2
11 × 3 = 33 // умножить на 3
33 + 2 = 35 // прибавить 2
35 + 2 = 37 // прибавить 2
Ответ: 12122
Задание №2
Если 11221 из числа 11 делает число 118, можно записать как:
Команда 22 из числа 13 делает число 117.
Таким числом является 3.
13 × 3 = 39
39 × 3 = 117
Ответ: 3
Задание №3
Если 21212 из числа 11 делает число 130, можно записать как:
Команда 121 из числа 22 делает число 65.
Таким числом является 7.
22 + 7 = 29
29 × 2 = 58
58 + 7 = 65
Ответ: 7