Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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