На ри¬сун¬ке — схема дорог, свя¬зы¬ва¬ю¬щих го¬ро¬да а, б, в, г, д, е, ж, з, и, к и л. по каж¬дой до-ро¬ге можно дви¬гать¬ся толь¬ко в одном направлении, ука¬зан¬ном стрелкой. сколь¬ко су¬ще¬ству¬ет раз¬лич¬ных путей из го¬ро¬да а в город л?

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =matrgen(9,9,(i,j)-> i+1); a.println(2); end. результат   1 1 1 1 1 1 1 1 1   2 2 2 2 2 2 2 2 2   3 3 3 3 3 3 3 3 3   4 4 4 4 4 4 4 4 4   5 5 5 5 5 5 5 5 5   6 6 6 6 6 6 6 6 6   7 7 7 7 7 7 7 7 7   8 8 8 8 8 8 8 8 8   9 9 9 9 9 9 9 9 9 begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('*** результат [',n,',',m,'] ***');   a.fill((i,j)-> abs(a[i,j])); a.println(4) end. пример количество строк в матрице: 4 количество столбцов в матрице: 7 *** исходная матрица [4,7] ***   10  42    3  83 -65  43  65   -52 -40  55  75 -27  53 -47   17  88  93  32  35  41 -76   70  13    6    2    9 -22 -55 *** результат [4,7] ***   10  42    3  83  65  43  65   52  40  55  75  27  53  47   17  88  93  32  35  41  76   70  13    6    2    9  22  55

Var n,b,k: integer; begin write('n = '); readln(n); write('искомые числа: '); for n: = 1 to n do       begin       b: =n;       k: =1;       // перед каждой проверкой k: =1       // и если число не делится на любую из своих цифр, то k: =0       while b > 0 do             begin             if b mod 10 = 0 then k: =0             // b mod 10 - это остаток от деления b на 10             // то есть, например, 123 mod 10 = 3             else if n mod (b mod 10) > 0 then k: =0;             b: =b div 10             // целая часть от деления b на 10             // 123 div 10 = 12             end;       if k = 1 then write(' ',n)       end; end.