В обороте участвуют монеты достоинством 1 рубль, 2 рубля, 5 рублей и 10 рублей. Сколькими способами можно набрать сумму 66 рублей?
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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