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

СРОЧНООО,у меня комп сломался,не могу написать прогу и решить :с В обороте участв??ют монеты достоинством 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы