М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Инав
Инав
01.05.2022 11:01 •  Информатика

В банкомате имеются в достаточном количестве купюры номиналом 50, 100, 200, 500 и 1000 рублей. Найти минимальное количество купюр, которое необходимо использовать, чтобы выдать сумму в n рублей или вывести -1, если указанную сумму выдать нельзя. Входные данные. Одно число n (1 ≤ n ≤ 10^6).

Выходные данные. Вывести наименьшее количество купюр, которыми можно выдать n рублей.

(Pascal)

👇
Ответ:
скарабец
скарабец
01.05.2022

100

50

200

500

1000

прости дальше я не могу

4,8(4 оценок)
Открыть все ответы
Ответ:
Typhoon01
Typhoon01
01.05.2022
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

procedure Fib(n:integer; var r:sequence of integer);
begin
  if n<1 then exit; // нечего глупости задавать
  case n of
  1: r:=Seq(1);
  2: r:=Seq(1,1);
  else begin
    r:=Seq(1,1);
    var (p1,p2):=(1,1);
    var p:integer;
    loop n-2 do begin
      p:=p1+p2;
      r:=r+Seq(p);
      (p1,p2):=(p2,p)
      end
    end
  end
end;
   
begin
  var s:sequence of integer;
  var n:=ReadInteger('n=');
  Fib(n,s);
  s.Println
end.

Пример
n= 8
1 1 2 3 5 8 13 21
4,6(36 оценок)
Ответ:
slusarenkolena
slusarenkolena
01.05.2022
Я не трус, но я боюсь!
(Бриллиантовая рука)

Да нам, царям, молоко нужно выдавать за вредность!
(Иван Васильевич меняет профессию)

Этот нехороший человек предаст нас при первой же опасности!
(Джентльмены удачи)

Бамбарбия! Киргуду! Шутка!
(Кавказская пленница)

Шурик, это же не наш метод!
(Операция Ы и другие приключения Шурика)

Восток – дело тонкое.
Белое солнце пустыни

Утром деньги – вечером стулья, вечером деньги – ночью стулья…
(двенадцать стульев)

он, конечно, виноват, но он… не виноват…
(Берегись автомобиля!)
4,4(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ