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