Мальчик Стив решил посвятить летние каникулы рыбалке. Он хочет научиться ловить как мирную рыбу (на поплавок), так и хищную (на блесну). Стив почему-то уверен, что однажды использованная снасть не годится для повторной ловли, и просто дарит ее соседскому мальчишке, на следующий день используя новую оснастку. Для рыбалки он ежедневно будет оснащать ДВЕ свои удочки по принципу:
- пока это возможно, на одну удочку будет ставиться поплавочная снасть, а на другую – блесна;
- когда один из видов снасти закончится, Стив будет обе удочки оснащать одинаково (например, когда закончатся блесны, на обе удочки будет ставиться поплавковая оснастка);
- когда обе удочки сразу оснастить будет невозможно, Стив бросает рыбалку и начинает рисовать акварелью.
Вычислите количество дней, которые Стив проведет на рыбалке.
Входные данные
Даны два целых числа –Х (количество комплектов поплавковой снасти) и К (снасти с блесной).
Выходные данные
Выведите единственное целое число М, равное максимальному количеству дней, которые Стив будет рыбачить.
Пример:
1) Х = 3, К = 1 М = 2 (1 день: поплавок и блесна, 2 день: оба поплавка)
2) Х = 2, К = 3 М = 2 (1 и 2 дни: поплавок и блесна, на 3 день будет оснащена лишь одна удочка блесной)
3) Х = 7, К = 3 М = 5 (1-3 дни: поплавок и блесна, 4-5 дни: поплавки на обе удочки)
По возможности объясните
156
476
Ответы на вопрос:
Var a: array [1..10] of byte; i, k, n, t, x, max: byte; //процедура вывода массива procedure writea(); var i : byte; begin for i : = 1 to 10 do begin write(a[i], chr(32)); end; writeln(); end; //основная процедура begin randomize; for i : = 1 to 10 do begin a[i] : = random(100); end; writea(); writeln(''); n : = 10; while n > 1 do begin for i : = n downto 1 do begin if a[i] > max then begin max : = a[i]; x : = i end; end; t : = a[n]; a[n] : = max; a[x] : = t; dec(n); max : = 0; writea(); end; writeln(''); writea(); end.- pascal abc.net, массив из 10 случайных чисел до 100 типа byte- результат работы программы следующий: 43 77 72 39 60 99 44 65 72 58 43 77 72 39 60 58 44 65 72 9943 72 72 39 60 58 44 65 77 9943 72 65 39 60 58 44 72 77 9943 44 65 39 60 58 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 39 58 60 65 72 72 77 9943 39 44 58 60 65 72 72 77 9939 43 44 58 60 65 72 72 77 99 39 43 44 58 60 65 72 72 77 99
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Russkikh1107.03.2021 03:12
-
maksym20017806.01.2023 18:06
-
vlada04110414.01.2023 11:32
-
nastya316220.08.2022 21:23
-
ImagineDragons111118.02.2020 01:23
-
slaapwandelaar29.02.2020 18:52
-
turabovrenat30.09.2020 02:33
-
mironovvladimir128.09.2020 20:21
-
Polinka089823.01.2020 17:00
-
Нафаня1337133720.02.2021 04:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.