Question

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

Answer 1

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

Результат (если отключить вывод вариантов  writeln(k5,' ',k2,' ',k1);)
k = 245