В обороте участвуют монеты достоинством 1 рубль, 2 рубля, 5 рублей и 10 рублей. Сколькими...

Question

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

Answer 1

Var s,k10,k5,k2,k:integer;
begin
s:=66;
k:=0;
for k10:=0 to s div 10 do
 for k5:=0 to (s-10*k10) div 5 do
  for k2:=0 to (s-10*k10-5*k5) div 2 do
   k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 700

Answer 2

Организуем такой перебор:
6 десяток - 1+4 способов в зависимости от числа пятерок;
5 десяток - 1+4+6+9 способов;
4 десятки - 1+4+6+9+11+14;
и т.д.всего 700 способов.