ВУЗ:
Составители:
Рубрика:
for j:=1 to N do
A[i,j]:=0; {Здесь будет ответ}
for i:=1 to N do
if B[i]>0 then {Ищем баланс>0}
begin
j:=1;
while B[i]>0 do
begin
if B[j]<0 then {Ищем баланс<0}
if B[i]<(-B[j]) then {"Считаем долг"}
begin
A[i,j]:=B[i]; {"платим" долг}
B[j]:=B[j]+B[i]; {Изменяем баланс}
B[i]:=0; {Изменяем баланс}
end else begin
A[i,j]:=-B[j]; {"платим" долг}
B[i]:=B[j]+B[i]; {Изменяем баланс}
B[j]:=0; {Изменяем баланс}
end;
j:=j+1;
end;
end;
for i:=1 to N do { Вывод ответа в файл }
begin
for j:=1 to N do
if A[i,j]=trunc(A[i,j])
then
write(fout,trunc(A[i,j]),' ')
else
write(fout,A[i,j],' ');
writeln(fout);
end;
close(fin);
close(fout);
End.
Задача 8. " О дорогах "
Эта задача предлагалась на межвузовской олимпиаде по информатике
в 1998 году. Ниже приводится решение призёра олимпиады Колбешкина
Дмитрия Михайловича – в настоящее время студента 5 курса факультета
ПММ.
Имеется N (N<=50) городов и система дорог, соединяющая эти
города. Любые два города может соединять не более одной дороги. По
любой дороге, соединяющей два города можно проехать в обе стороны.
Создать программу для определения, существуют ли города, из
которых можно выехать по одной дороге, а вернуться в них по другой.
Технические требования:
Входной файл: INPUТ.ТХТ
Выходной файл: ОUTPUТ.ТХТ
Ограничение времени: 10 секунд.
Формат входных данных:
В первой строке входного файла содержится целое положительное число
N. Далее каждая строка файла содержит два целых положительных числа
I и J, означающих, что есть дорога, соединяющая I-ый и J-ый города.
Формат выходных данных:
Страницы
- « первая
- ‹ предыдущая
- …
- 26
- 27
- 28
- 29
- 30
- …
- следующая ›
- последняя »