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

UptoLike

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

Рубрика:

{Проверка стека на пустоту }

Function Empty:boolean;

begin

Empty:=Stack=nil

end;

{********************************}

{Процедура чтения}

procedure InitIO;

var

i:integer;

begin

assign(input,'input.txt');

assign(output,'output.txt');

reset(input);

rewrite(output);

read(input,M);

readln(input,N);

readln(input,NOfM);

For i:=1 to NofM do

readln(input,Monkeys[i])

end;

{*****************************************}

{----------------Алгоритм ------------------}

{Функция,"пытающаяся" расшифровать очередной маршрут}

{Если удалось построить план ,возвращает true}