Блок-схема Опции

[Guest]

Привет всем.

Задали нарисовать блок-схему по задаче, задача такая

Любую сумму денег больше 7 рублей можно разменять на 3 и 5 рублей
Разменяйте N рублей всевозможными способами.

[hiv]

Можно и одним циклом в тупом переборе обойтись:

var n5,n :integer;
begin
n:=111;
for n5:=0 to (n div 5) do
 if ((n-n5*5) mod 3)=0 then
   writeln(n:0,'=',n5:0,'*5p+',((n-n5*5) div 3):0,'*3p');
end.

Работает железно!