метал3
06.02.2023 01:31

Домик черепахи расположен в начале прямой узкой грядки, на которой должны прорасти одуванчики – ее любимое лакомство. и вот черепахе приснился вещий сон. из него она узнала, что наконец-то после полуночи начнут расти одуванчики. ей даже приснилось, в какой момент времени, и в какой точке грядки вырастет каждый одуванчик. ровно в полночь черепаха выползла из домика, чтобы съесть все одуванчики и до следующей полуночи вернуться домой. черепаха может ползти со скоростью, не превосходящей величины vmax. одуванчик она съедает, остановившись на время d. если одуванчик начать есть, но не доесть до конца, то он засыхает, поэтому его надо съедать за один прием. одуванчики прорастают тем позже, чем дальше они расположены от начала грядки. в одной точке не могут прорастать несколько одуванчиков, а также несколько одуванчиков не могут прорастать в один момент времени. требуется определить, в какой момент времени черепаха сможет вернуться домой, съев все одуванчики и затратив на путешествие наименьшее время. входные данные в 1-й строке входного файла находятся 2 целых числа, разделенные пробелом: vmax (в см/мин) и d (в минутах), 0 < vmax ≤ 200, 0 ≤ d ≤ 500. во 2-й строке находится число n – количество одуванчиков (в штуках). 0 ≤ n ≤ 1400 при d = 0, в противном случае 0 ≤ n ≤ 200. в каждой из последующих n строк расположены: целое число xi – расстояние от одуванчика до начала грядки (в сантиметрах), 0 ≤ xi ≤ 32767, и через пробел ti – момент прорастания одуванчика (в формате hh: mm). пары в порядке возрастания расстояний. выходные данные выходной файл должен содержать момент времени возвращения черепахи домой (в формате hh: mm), округленный до целых минут в большую сторону. примечания 1. в часе – 60 минут, в сутках – 24 часа. 2. время в сутках изменяется от 00: 00 до 23: 59. 3. можете считать, что черепаха не меняет направления движения до тех пор, пока не доползет до последнего одуванчика. информатикс 894

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ostlena50
13.05.2020 11:45
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
0,0(0 оценок)
Ответ:
ОВОВОВОВо
13.05.2020 11:45

Скорее всего большое приемущество обработки данных с электронных  таблиц  в том ,что при такой обработке  допущение ошибки минимально (  это уже зависит от человека ,где он неправильно ввёл данные ) . Если же обрабатывать таблицу вручную ,то верояность допущения ошибок велика!
Так же преимущество  в том ,что при обработке информации при таблицы  намного быстрее проходит этот процесс ,нежеле ты сама  будешь всё  проверять .
Ну и конечно же  люди сейчас настолько ленивы ,чтобы самостоятельно обрабатывать какую-либо информацию, поэтому мы всё доверяем исскуственному разуму:) 

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