СРОЧНООО,у меня комп сломался,не могу написать прогу и решить :с В обороте участвуют...

Question

СРОЧНООО,у меня комп сломался,не могу написать прогу и решить :с
В обороте участвуют монеты достоинством 1 рубль, 2 рубля, 5 рублей и 10 рублей. Сколькими способами можно набрать сумму 66 рублей?

Comments

А заем тут программа?

---

*зачем

---

Как зачем?

---

чтобы вычислить

---

Тупо перебрать в четырех вложенных циклах?

---

Это не быстро же

---

Какую тебе "прогу" написать нужно?

Answer 1

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var k:=0;
  for var i10:=0 to 6 do
    for var i5:=0 to 13 do
      for var i2:=0 to 33 do
        for var i1:=0 to 66 do
          if 10*i10+5*i5+2*i2+i1=66 then Inc(k);
  Writeln(k)
end.

Ответ: 700

Comments

Кто мешал набрать это самостоятельно на официальном сайте PascalABC.NET? Там есть возможность прямо из браузера работать... в телефоне же есть браузер.

---

Вот,другое дело,спасибо огромное

---

Оу,если честно,то я не знала про это,теперь буду знать,благодарю

---

Ищи контекст PascalABC.NET WDE на поисковике

---

Сейчас пойду искать