В обороте участвуют монеты достоинством 1 рубль, 2 рубля, 5 рублей и 10 рублей. Сколькими способами можно набрать сумму 66 рублей?
Answers & Comments
BukBear
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.
Организуем такой перебор: 6 десяток - 1+4 способов в зависимости от числа пятерок; 5 десяток - 1+4+6+9 способов; 4 десятки - 1+4+6+9+11+14; и т.д.всего 700 способов.
Answers & Comments
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
Verified answer
Организуем такой перебор:6 десяток - 1+4 способов в зависимости от числа пятерок;
5 десяток - 1+4+6+9 способов;
4 десятки - 1+4+6+9+11+14;
и т.д.всего 700 способов.