Контроллеры есть чипы, в которых прописано определённое по. контроллеры нужны для выполнения определённых , например для питания видеокарты, или контроллер звука. много примеров. драйвера это приложение к основной ос, которое служит для того чтоб функционировали разные устройства, чтоб можно было сдружить пк и мышь.
o-kate17
24.04.2020
Попробую. начало ввод количества номиналов n объявляем массивов x(n), y(n) цикл по i от 1 до n ввод очередного номинала x(i) конец цикла по i ввод суммы для выдачи s подпрограмма сортировки массива x(n) по возрастанию. например, пузырьковой сортировкой. k = 0 ' k - это количество банкнот цикл, пока s > 0 если s < x(1), то ' если остаток меньше самого маленького номинала s = 0: k = -1 ' то выдать полную сумму невозможно выход сразу из цикла по s конец если i = n цикл, пока x(i) > s i = i - 1 конец цикла по x(i) y(k) = x(i) ' записываем очередную банкноту в массив y(n) s = s - x(i) ' определяем остаток k = k + 1 ' увеличиваем счетчик банкнот конец цикла по s если k = 0, то k = -1 ' выдать сумму не смогли вывод k если k > 0, то ' если сумму можно выдать цикл по i от 1 до k вывод y(i) + " " конец цикла по i конец если конец алгоритм пузырьковой сортировки: начало подпрограммы f = true ' это булева переменная - признак успешности сортировки цикл вечный без всяких условий если f = true, то f = false цикл по i от 1 до n-1 если x(i) > x(i+1), то ' если два соседних числа не отсортированы q = x(i) : x(i) = x(i+1) : x(i+1) = q ' меняем местами эти числа f = true конец если конец цикла по i иначе выход из цикла ' если f = false конец если конец вечного цикла конец подпрограммы
russstep
24.04.2020
Const nn=100; { предельное количество номиналов банкнот } type bnk=longint; var nom,res: array[1..nn] of bnk; i,n,koln: integer; sum: bnk; procedure sort(n: integer); var i,j: integer; t: bnk; begin for i : = 1 to n-1 do for j : = 1 to n-i do if nom[j] > nom[j+1] then begin t : = nom[j]; nom[j] : = nom[j+1]; nom[j+1] : = t end end; begin readln(n); for i: =1 to n do read(nom[i]); readln(sum); sort(n); koln: =0; i: =n; while sum> 0 do begin while nom[i]> sum do dec(i); inc(koln); res[koln]: =nom[i]; sum: =sum mod nom[i]; if (sum< nom[1]) and (sum< > 0) then begin sum: =0; koln: =-1 end end; if koln=0 then koln: =-1; writeln(koln); for i: =1 to koln do write(res[i],' '); writeln end. тестовые решения контрольный пример: 5 1 3 7 12 32 40 3 32 7 1 еще один пример: 8 1 5 10 50 100 500 1000 5000 4586 6 1000 500 50 10 5 1