Между населенными пунктами A, B, C, D, E, F, Z построены дороги, протяженность которых приведена в таблице.

(Отсутствие числа в таблице озночает, что прямой дороги между пунктами нет.)

Определите длину кратчайшего пути между пунктами A и Z (при условии, что предвигаться можно только по постоенным дорогам)

Между населенными пунктами A, B, C, D, E, F, Z построены дороги, протяженность которых приведена в т

👇

Увидеть ответ

Ответ:

Privet206

01.02.2020

Доброго времени суток. Решение во вложении.

Между населенными пунктами A, B, C, D, E, F, Z построены дороги, протяженность которых приведена в т

4,5(59 оценок)

Открыть все ответы

Ответ:

Петрович05

01.02.2020

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

procedure ЗаменаЦифры(Исходное,Заменяющее:int64; var Результат:string);
begin
var ИсхСтрока:=Исходное.ToString;
var ЗамСтрока:=Заменяющее.ToString;
Результат:=ИсхСтрока.Replace(ИсхСтрока.ToCharArray.Max,ЗамСтрока)
end;

begin
var КоличествоЧисел:=ReadInteger('Введите количество чисел для обработки:');
var ОчередноеИсходное,ОчередноеЗаменяющее:int64;
var РезультатЗамены:string;
Loop КоличествоЧисел do begin
    Write('Введите исходное целое число: '); Read(Очередноеисходное);
    Write('Введите целое число для замены: '); Read(ОчередноеЗаменяющее);
    ЗаменаЦифры(ОчередноеИсходное,ОчередноеЗаменяющее,РезультатЗамены);
    Writeln('Результат замены: ',РезультатЗамены)
    end
end.

Пример
Введите количество чисел для обработки: 5
Введите исходное целое число: 15630
Введите целое число для замены: 8
Результат замены: 15830
Введите исходное целое число: 235235
Введите целое число для замены: 11
Результат замены: 23112311
Введите исходное целое число: 6
Введите целое число для замены: 352
Результат замены: 352
Введите исходное целое число: 999
Введите целое число для замены: 88
Результат замены: 888888
Введите исходное целое число: 12307347740
Введите целое число для замены: 131313
Результат замены: 12301313133413131313131340

4,8(90 оценок)

Ответ:

ulchik4572

01.02.2020

// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(11,-29,150); a.Println;
Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
Swap(a[1],a[6]);
Writeln('Результирующий массив'); a.Println
end.

Пример
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14

4,4(90 оценок)

Это интересно:

Хобби-и-рукоделие

24.04.2020

Как сделать бумажный вертолет...

Кулинария-и-гостеприимство

18.08.2021

Сделай свой день еще сладким: как сделать букет из конфет...

Компьютеры-и-электроника

03.08.2020

Вредоносное ПО в Facebook: как избавиться от него...

Образование-и-коммуникации