При температуре -39°С ртуть станет твердой.
//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.
Строка соответствует моему числу.
1) вниз, =В3 + С4
2) вправо, =G4*7+12
3) вправо, =3/Е6 - G2
4) вниз, =2,5 + M9
5) вниз - вправо, =В3 - Е4
6) вниз - вправо, =D7/С5
7) вправо, =$C2+6
8) вниз, =$C4-4
9) вниз - вправо, =$A$5+1
10) вправо, =В2/$D3
11) вниз, =D$1-3$B2
12) вниз, =$B$3+0,1*$C5
13) вправо, =E$6-$B$4
14) вниз - вправо, =B$2/C$6
15) вниз - вправо, =9+$C11
16) вниз, =$B7-6*$C4
17) вниз, =C7/2+B$7
Плохо видно .Извени не могу ответеть на твой вопрос