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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

63
for j:=1 to N do
a[i,j]:=0;
for i:=1 to N do
b[i]:=0;
for i:=1 to N do
c[i]:=0;
while not Eof(fin) do
{Составляем карту дорог}
begin
readln(fin,i,j);
a[i,j] := 1;
a[j,i] := 1;
end;
for i:=1 to N do
for j:=1 to N do
if (c[i]=0)and(a[i,j]=1) then
begin
a[i,j]:=0;
{Закрываем дорогу}
a[j,i]:=0;
{Закрываем дорогу}
Rekurs(j);
{Идём в следующий город}
a[i,j]:=1;
{Открываем дорогу}
a[j,i]:=1;
{Открываем дорогу}
end;
for i:=1 to N do
if c[i]=1 then write(fout,i,' ');
close(fin);

Страницы