Задача B. Подснежники
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
Девочка даже руками всплеснула. Куда девались высокие сугробы? Где ледяные сосульки, что
висели на каждой ветке? Под ногами у нее — мягкая весенняя земля. Кругом каплет, течет, журчит.
Почки на ветвях надулись, и уже выглядывают из-под темной кожуры первые зеленые листики.
Глядит девочка — наглядеться не может.
«Что же ты стоишь? Торопись, нам с тобой всего один часок братья мои подарили», — говорит
ей Март.
Девочка очнулась и побежала в чащу подснежники искать. А их видимо-невидимо!
Перед девочкой N кочек. На i-й кочке растут ki подснежников. Она может выбрать одну или
несколько кочек, после чего девочка пробегает по выбранным кочкам и срывает все подснежники,
растущие на этих кочках. То есть, если среди выбранных кочек есть кочка с номером i, девочка
забирает себе ki подснежников.
Какое минимально возможное количество кочек нужно выбрать девочке, чтобы собрать ровно
K подснежников?
Формат входных данных
Первая строка входных данных содержит натуральное число N — количество кочек
и натуральное число K — количество подснежников, которое помещается в корзину/
Во второй строке находится N натуральных чисел ki — количество подснежников на каждой
кочке/
Формат выходных данных
Выведите наименьшее необходимое число кочек или 0, если набрать полную корзину подснежников невозможно.
Пример
стандартный ввод стандартный вывод
4 6 2
4 2 3 1
решить на чём угодно
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.
Текстовый редактор Microsoft Word предназначен для набора текста с клавиатуры, а также редактирования, копирования, создания таблиц, одним словом для того, чтобы созданный Вами документ выглядел максимально привлекательно, стильно и информативно. С вы можете составить такие документы как:
оформить курсовую или дипломную работу;
составить резюме кандидата на должность;
напечатать заявление о приеме на работу;
подготовить многомиллионный договор на поставку товара;
сочинить и отредактировать для печати целый роман.
Другими словами, текстовый редактор Microsoft Word, будет полезен абсолютно любому пользователю компьютера, который так или иначе связан с текстовыми документами.