1«легкая конструкция» (10 ).

космические путешествия - опасные предприятия. поэтому корабль, который

планировал построить василий для своего путешествия, проектировался

надежный. вася решил, что для обеспечения бесперебойного электропитания

приборов корабля необходимо соединить все имеющиеся на корабле

узлы, по принципу "каждый с каждым". но после монтажа всего

электрооборудования вес космического корабля оказался слишком велик.

обратившись за к экспертам василий выяснил, что большая часть

проводов совершенно не участвует в процессе электроснабжения. ток в цепи идет по

пути наименьшего сопротивления. поэтому большую часть проводов можно смело

обрезать.

василию решить, какие провода нужно оставить в цепи, чтобы ток

проходил через все узлы, но при этом сопротивление в цепи было минимальным.

формат входных данных: в первой строке программе подается целое число n -

количество узловых точек цепи (2< =n< 100). в следующих n строках вводится n

значений сопротивления на участках цепи, соединяющих i-ый узел со всеми другими.

значение сопротивления на каждом участке ri положительное число не

превосходящее 100. числом 0 обозначен участок цепи соединяющий i-ый узел с

самим собой. цепь начинается от источника - узел с номером 0.

формат выходных данных: программа должна вывести строку, содержащую

последовательность узлов, которые образуют замкнутую цепь, с минимальным

сопротивлением, начиная от источника и заканчивая источником.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

queensss

16.09.2021 11:08

Составить блок-схему алгоритма решения : найти сумму делителей числа n....

197983

16.09.2021 11:08

Написать программу на языке c++, которая создает и выводит 2x2 квадратную матрицу на экран. после того как матрица появилась на экране, программа должна посчитать...

ранго1

16.09.2021 11:08

Найти все натуральные числа, не превышающие заданного n и делятся на каждую из своих цифр (в десятичной системе счисления) на языке - c...

skosachyov

16.09.2021 11:08

Перевести на си program array18; var a: array[1..10] of integer; i, k: integer; begin for i : = 1 to 10 do read(a[i]); for i : = 1 to 9 do if a[i] a[10] then begin...

Trumpumpum

08.04.2022 17:25

Рассмотрите блок-схему. напишите код программы,...

MARI5368334

11.08.2022 21:48

Запишите IP – адрес из четырех десятичных чисел в 32-битном виде. 214.125.255.10 2. Запишите IP – адрес, представленный в 32-битном виде, в виде четырех десятичных...

bobkovaolesya

05.04.2021 12:40

Скорость передачи данных через ADSL-соединение равна 65536бит/с. Через данное соединение передают файл размером 576 Кбайт. Определи время передачи файла в секундах....

shkiper15555

21.02.2023 12:28

конспект на тему компьютерные презентации 7 класс...

полли42

21.06.2022 18:03

ів Запишіть оператор присвоєння, який виконує таку дію: а) першому елементу масиву С присвоїти значення суми третього і п’ятого елементів; б) шостому елементу масиву...

skripniklenok13

19.10.2020 10:47

Какие в древности использовали передачи информации? Это надо для сообщения....

Ответ:

heartanime

04.05.2023 23:05

Uses crt;
var item, rub, doll: real;
job: integer;
begin
writeln('Введите курс ру по отношению к дол: ');
read(item);//Вводим курс рубль-доллар
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?');
read(job);//Вводим режим
case job of
2: begin
writeln('Введите кол-во рублей: ');
read(rub);//Вводим рубль
rub := rub / item;
writeln('doll = ',rub);
end;
1: begin
writeln('Введите кол- во долларов: ');
read(doll);//Вводим доллар
doll := doll * item;
writeln('rub = ',doll);
end;
end;
end.

0,0(0 оценок)

Ответ:

DeFauLD

06.04.2023 22:09

var

s : string;

i : integer;

f : boolean;

begin

readln (s);

writeln ('Тут ', length (s), ' символов');

f := true;

for i := 1 to length (s) div 2 do

if s[i] <> s[length (s) - i + 1] then f := false;

writeln ('Это слово является перевертышем: ', f); //True/False

end.

var

s : string;

i, k, count : integer;

c : char;

begin

readln (s);

count := 0;

for i := 1 to length (s) do

if s[i] <> ' ' then

begin

c := s[i];

k := i + 1;

break;

end;

for i := k to length (s) do

if (s[i] = ' ') and (c <> ' ') then

begin

if s[i - 1] = c then inc (count);

c := ' ';

end

else if c = ' ' then c := s[i];

if (c <> ' ' ) and (s[length (s)] <> ' ') and (c = s[length (s)]) then inc (count);

writeln (count);

end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку