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

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

var s,k10,k5,k2,k:integer;begins:=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