anel1985
25.01.2020 01:41

решить задачу на с++ или питоне Исторически Вестерос поделен на N областей, две из которых имеют выход к морю. Много лет королевство раздирала борьба за корону, так что все дороги между областями пришли в негодность. Король Роберт поручил хранителю Севера Неду Старку построить в королевстве дороги так, чтобы из любой области можно было добраться до моря по одной или нескольким дорогам. Какое наименьшее число дорог должен построить Нед Старк, чтобы выполнить поручение короля Роберта?

Формат входных данных

В единственной строке входного файла содержится одно целое число N (0 ≤ N ≤ 1000) — количество областей в Семи королевствах.

Формат выходных данных

Единственная строка выходного файла должна содержать одно целое число — минимальное количество дорог, которое нужно построить для выполнения поручения короля Роберта.

Пример:

A.in A.out

4 2

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Natasatana
02.05.2023 05:26

. Додати файли для конвертації, вибравши кнопку Додати файли та вибравши у вікні, що відкрилося, потрібні файли.

2. Вибрати кнопку Далі.

3. Указати формат файлу, в який будете конвертувати, та за потреби - значення властивостей цього формату (мал. 4.8).

4. Вибрати кнопку Конвертувати.

5. Указати папку для запису конвертованого файлу.

Також існують веб-версії конверторів як аудіо, так і відео, наприклад, на сайтах http://audio.online-convert.com, http://benderconverter.com, https:// online-audio-converter.com, http://www.onlinevideoconverter.com, http://www. online-convert.com та ін.


Яка послідовність дій під час запису аудіоданних?
0,0(0 оценок)
Ответ:
segrejp
02.05.2022 22:00

var

 a:array of double;

 i,n,j:integer;

procedure swap(var x,y: double);

  var t: double;

begin

   t := x;

   x := y;

   y := t

end;

 

begin

 write('Кол-во чисел: '); readln(n);

 setlength(a,n);

 dec(n);    

 for i:=0 to n do

   readln(a[i]);

 writeln;  

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;    

 for j:=0 to n-1 do

   for i:=0 to N-j-1 do

     if a[i] < a[i+1] then

       swap(a[i],a[i+1]);        

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;  

end.

Если моё решение вам, пометьте его лучшим !

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота