Все цифры рисуются начиная с левого верхнего угла
Цифра_0
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
сместиться на вектор (0,2)
Цифра_6
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
сместиться на вектор (0,2)
Цифра_7
сместиться на вектор (1,0)
сместиться на вектор (-1,-1)
сместиться на вектор (0,-1)
Цифра_8
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
поднять перо
сместиться на вектор (0,-1)
опустить перо
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
Цифра_9
Сместиться на вектор (1,0)
Сместиться на вектор (0,-1)
Сместиться на вектор (-1,0)
Сместиться на вектор (0,1)
Поднять перо
Сместиться на вектор (1,-1)
Опустить перо
<span>Сместиться на вектор (-1,-1)</span>
Var b:array [1..100000] of integer;
a,k,i,n:integer;
begin
k:=0;{обнуляем счётчик}
readln(n);{вводим количество элементов в массиве}
readln(a);{задаём число а, с которым потом будем сравнивать}
for i:=1 to n do{запускаем цикл}
begin
if (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}
k:=k+1;{при выполнении условия,увеличиваем счётчик на один}
end;
writeln(k);{выводим количество элементов, удовлетворивших условию задачи}
end.
Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
<span>for i:=1 to 20 do</span>
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
<span>if a[i] > a[i+1] </span>
<span>then </span>
<span>begin </span>
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
<span>if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) </span>
<span>then </span>
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
<span>end.</span>
101011001110112<span> =1∙2^</span>13+0∙2^12+1∙2^11+0∙2^10+1∙2^9+1∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+1∙2^3+0∙2^2+1∙2^1+1∙2^0<span> = 8192+0+2048+0+512+256+0+0+32+16+8+0+2+1 = 11067</span>
Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub