Мне, необходимо сдать ! (pascal abc.net) дана n-сумма (1530) в рублях.вывести на экран линиями количество купюр которыми можно представить данную сумму.итого должно быть 5 номиналов. пояснения: (div; mod; k-количество; n-сумма).также,
необходимо сделать, как можно меньше делений!

Какое-то запутанное условие. решение "в лоб", без оптимизаций: procedure razmen(a : integer); begin   if a> =500 then   begin       writeln('500 - ',a div 500);       razmen(a-(a div 500)*500);   end   else       if a> =100 then       begin           writeln('100 - ',a div 100);           razmen(a-(a div 100)*100);       end       else           if a> =50 then           begin               writeln('50 - ',a div 50);               razmen(a-(a div 50)*50);           end           else               if a> =10 then               begin                   writeln('10 - ',a div 10);                   razmen(a-(a div 10)*10);               end               else                   if a> =5 then                   begin                       writeln('5 - ',a div 5);                       razmen(a-(a div 5)*5);                   end                   else writeln('1 - ',a); end; begin   razmen(1530); end.

А задание какое? так не до конца понятно

Матричные, струйные и лазерные.

Тартила или сухопутная черепаха!