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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

62
begin
{i - начало пути}
if k=i then
{Мы вернулись к началу?}
begin
c[i]:=1;
for t:=1 to N do
if b[t]=1 then c[t]:=1
end
else
for l:=1 to N do
{Есть ли дорога к новому городу?}
if (a[k,l]<>0) and (b[l]=0) and
(c[i]=0) then
begin
b[k]:=1;
{Ставим влаг перед уходом}
Rekurs(l);
{Идём в следующий город}
b[k]:=0;
{Убираем флаг при обратном пути}
end;
end;
Begin
writeln (' Задача о дорогах ');
assign(fin,'input.txt');
assign(fout,'output.txt');
reset(fin);
rewrite(fout);
read(fin,n);
for i:=1 to N do

Страницы