Привет всем.

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

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

Помогите тогда решить задачу. :molitva:

Если тебе нужны ВСЕ способы размена, то делай полный перебор, так проще, т.е:

 for n5:=0 to (Сумма div 5) do
 for n3:=0 to (Сумма div 3) do
  if (n5*5+n3*3)=сумма then writeln (......); 

:yes:

Malice

Спасибо

Мне кажется перебор это очень долго .... у меня вот есть другая мысль, работает вроде правильно, только запарка с числом 9 ну этот случай можно и отдельно рассмотреть. А так в случае с перебором, это в любом случае

(n div 3 +1)*(n div 5 + 1) операций, тоесть в случае например с n=1000 это будет 334*201 = 67134

в моем случае n div 5 -> 200 Если я не прав или ошибаюсь, извиняюсь.

uses crt;

var
   n, c5 : integer;

Begin

   clrscr;

   write('n='); readln(n);

   c5 := 0;

   while(n>0) do begin
      dec(n, 5);
      inc(c5);
      if n mod 3 = 0 then
       writeln('5*', c5, ' + 3*', n div 3);
   end;
   readln;

end.

во 1-х, я сказал как проще Во 2-х, в смысле долго ? Дольше секунды ? Кстати, кроме 9-ки, она еще и не все варианты ищет, да еще и -1 иногда получается Поставь inc и Dec после If и все будет хорошо. :yes:

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

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.

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