Решить в паскале. покупатель должен заплатить в кассу s рублей. у него имеются 1, 2, 5, 10, 50, 100, 500-рублевые купюры. сколько купюр разного достоинства отдаст покупатель, если начнет платить с самых крупных?

Pascalabc.net 3.2, сборка 1383 от 09.02.2017 внимание! если программа не работает, обновите версию! используем "жадный" алгоритм. он не всегда дает минимальное общее количество купюр, но зато простой в понимании. begin   var k: =arr(500,100,50,10,5,2,1); // массив с достоинствами купюр   var s: =readinteger('введите сумму: '); // сумма к оплате   writeln('уплатить: ');   var i: =0;   while s> 0 do begin       var p: =s div k[i];       if p> 0 then writeln(p,' шт. достоинством ',k[i],' руб.');       s: =s mod k[i]; i+=1       end; end. примеры введите сумму: 3794 уплатить: 7 шт. достоинством 500 руб. 2 шт. достоинством 100 руб. 1 шт. достоинством 50 руб. 4 шт. достоинством 10 руб. 2 шт. достоинством 2 руб. введите сумму: 507 уплатить: 1 шт. достоинством 500 руб. 1 шт. достоинством 5 руб. 1 шт. достоинством 2 руб.

20, если он возьмёт 19 правых, то 20-ая уже гарантирована будет левой и пара будет составлена. если он возьмёт меньше двадцати перчаток, то есть шанс, что все они будут правые.

ответ: 20.

вот проверила, так работает. нормально?

 

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.