На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город М, не проходящих ни через город Д, ни через город Ж? https://yapx.ru/v/Myz5f

ответ:            м     и    к  р   о   ф   о   н

                                      о

                                      м  ы  ш  ь

                       д              п

                       и              ь

                       с              ю                п

                       к   л  а  в  и  а   т  у  р  а

                                        е                 о                 э

                                        р                 ц                к

                                            в   и   д   е  о   к   а   р   т   а

                                                            с                  а

                                                            с                  н

                                                            о              

                     м    о    н     и     т    о    р

Объяснение:

программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999

затем выводит все элементы у которых первая цифра больше второй.

var

   n : integer;

   d : array of integer;

begin

   n := random(10, 100);

   d := new integer[n];

   d := arrRandom(n, 10, 9999999);

   for var i := 0 to n-1 do begin

       var a1, a2 : integer;

       a1 := d[i];

       repeat

           a1 := a1 div 10;

       until a1 < 10;

       a2 := d[i] mod 10;

       if a1 > a2 then writeln(d[i]);

   end;

end.