ВУЗ:
Составители:
Рубрика:
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
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);
close(fout);
End.
Задача 9. " ДЕНЬГИ "
Эта задача предлагалась на факультетской олимпиаде по информатике
в 1999 году. Ниже приводится решение призёра олимпиады Колбешкина
Дмитрия Михайловича – в настоящее время студента 5 курса факультета
ПММ.
Имеется денежная сумма в N единиц. Требуется написать программу
для определения, можно ли представить данную сумму денег купюрами
Страницы
- « первая
- ‹ предыдущая
- …
- 28
- 29
- 30
- 31
- 32
- …
- следующая ›
- последняя »