ВУЗ:
Составители:
Рубрика:
{Проверка стека на пустоту }
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}
Страницы
- « первая
- ‹ предыдущая
- …
- 45
- 46
- 47
- 48
- 49
- …
- следующая ›
- последняя »