Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 61 стр.

UptoLike

Составители: 

61
Перед уходом ставим флаг. Он означает что
город уже БЫЛ у нас на пути.
Идём по выбранной дороге в следующий
город. (Переходим к пункту 2.)
4. По своим следам возвращаемся в предыдущий
город.
Если мы вернулись НЕ к началу пути то:
Убираем флаг. (Переходим к пункту 3.)
Если мы вернулись к началу пути то:
Открываем дорогу по которой вернулись.
(Переходим к пункту 1.)
5. Все нужные города найдены...
*)
Program Plz2;
{Автор Колбешкин Д.М.}
Const MaxN = 50;
Var i,j,N,t : byte;
fin,fout : text;
a : array [1..MaxN,1..MaxN] of byte;
{Матрица дорог}
b : array [1..MaxN] of byte;
{Запоминаем путь}
c : array [1..MaxN] of byte;
{Формируем ответ}
Procedure Rekurs(k:byte);
{k - город, в котором мы сейчас}
var l:byte;
{l - город, в который думаем сходить}