1 «легкая конструкция».
космические путешествия - опасные предприятия. поэтому корабль, который
планировал построить василий для своего путешествия, проектировался
надежный. вася решил, что для обеспечения бесперебойного электропитания
приборов корабля необходимо соединить все имеющиеся на корабле
узлы, по принципу "каждый с каждым". но после монтажа всего
электрооборудования вес космического корабля оказался слишком велик.
обратившись за к экспертам василий выяснил, что большая часть
проводов совершенно не участвует в процессе электроснабжения. ток в цепи идет по
пути наименьшего сопротивления. поэтому большую часть проводов можно смело
обрезать.
василию решить, какие провода нужно оставить в цепи, чтобы ток
проходил через все узлы, но при этом сопротивление в цепи было минимальным.
формат входных данных: в первой строке программе подается целое число n -
количество узловых точек цепи (2< =n< 100). в следующих n строках вводится n
значений сопротивления на участках цепи, соединяющих i-ый узел со всеми другими.
значение сопротивления на каждом участке ri положительное число не
превосходящее 100. числом 0 обозначен участок цепи соединяющий i-ый узел с
самим собой. цепь начинается от источника - узел с номером 0.
формат выходных данных: программа должна вывести строку, содержащую
последовательность узлов, которые образуют замкнутую цепь, с минимальным
сопротивлением, начиная от источника и заканчивая источником.
var slova, bukvy, slovo : string;
i, b, k, c, j, l, kolvo, dlina1, dlina2 : integer;
a : array[1..50] of string;
begin
Writeln('Введите слова');
Readln(slova);
Writeln('Введите буквы');
Readln(bukvy);
dlina1 := length(slova);
dlina2 := length(bukvy);
k := 1;
for i := 1 to dlina1 do
if slova[i] = ' ' then
k := k + 1;
writeln(k);
b := 1;
i := 1;
while i <= length(slova) do
begin
if (slova[i] <> ' ') and (i <> length(slova)) then
slovo := slovo + slova[i]
else
begin
a[b] := slovo;
slovo := '';
b := b + 1;
end;
i := i + 1;
end;
a[k] := a[k] + slova[length(slova)];
b := 0;
l := 0;
for i := 1 to 50 do
if a[i] <> '' then
begin
slovo := a[i];
for k := 1 to length(slovo) do
for c := 1 to length(bukvy) do
if slovo[k] = bukvy[c] then
j := j + 1;
if j = length(slovo) then
begin
writeln(slovo);
l := l + 1;
j := 0;
end;
end;
if l = 0 then
writeln('NO');
end.
Объяснение:
495
Объяснение:
8-чная система имеет таки цифры как 0, 1, 2, 3, 4, 5, 6, 7
всего у нас есть 8 цифр из которых мы можем составить уравнение
на первом месте может стоять только четная, всего четных у нас 4 цифры (0, 2, 4, 6)
цифры должны стоять в убывании либо не меняться
начнем с 6, она одна
вторая у нас любая цифра меньше 7, их 7 (0, 1, 2, 3, 4, 5, 6)
третьей может быть так же 7 цифр
и так же с четвертой
то есть 1 * 7 * 7 * 7 = 343
если начнем с 4, то
1 * 5 * 5 * 5 = 125
если с 2, то
1 * 3 * 3 * 3 = 27
теперь сложим все числа и получим 495