C. иннокентий и одна известная страна
иннокентий работает в одной большой корпорации. сейчас его является открытие филиала в новой стране. в стране n городов соединенных n − 1 дорогой так, что из любого
города можно добраться до любого другого.
открытие филиала — дело ответственное. филиал должен располагаться в городе, стоимость
транспортировки из которого минимальна. для этого иннокентий придумал следующую форму
расчета: пусть u — выбранный город, а vi — соседние города, то есть такие, в которые можно
попасть из
p
u, проехав ровно по одной дороге. тогда стоимость транспортировки определяется как
(dvi + 1)2
, где dvi — длина наибольшего пути, начинающегося в городе vi
, который не проходит
дважды через какой-либо город и не проходит через u. иннокентию выбрать город, в
котором нужно разместить склад, чтобы стоимость была минимальной.
формат входных данных
в первой строке входного файла записано число n — количество городов (1 6 n 6 5 · 105
).
в следующих n − 1 строках дано описание дорог. каждая строка содержит по два целых числа
u и v — номера городов, которые соответствующая дорога соединяет (1 6 u, v 6 n, u 6= v).
формат выходных данных
в выходной файл необходимо вывести два числа: наименьшую стоимость размещения филиала
и город, при выборе которого она достигается. если подходящих ответов несколько, выведите любой
из них.
Растр (оптика) — решётка для структурного преобразования направленного пучка лучей света. В прозрачных растрах чередуются прозрачные и непрозрачные элементы, отражательные растры состоят из зеркально отражающих и поглощающих (или рассеивающих) элементов.
2.От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп. От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп.
var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите кол-во смещений: ');
read(n);
repeat
k:=a[2];
for i:=2 to 9 do
a[i]:=a[i+1];
a[10]:=k;
n:=n-1;
until n=0;
writeln('Результат:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.