1) F=Av(¬A&B) По закону дистрибутивности раскроем скобки (Av¬A)&(AvB) Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB) По тому же закону раскрываем скобки (A&¬A)v(A&B) A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB) По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид A&(¬CvB) Можно раскрыть скобки, получим A&¬C v A&B
4) F =(1v(AvB))v((AC)&1) Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1 Получаем выражение 1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1 ответ 1
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var k:=Arr(1,2,5,10); // номиналы монет var m:=ReadArrInteger('Кол-во монет по '+k.JoinIntoString+' руб:',4); var n:=ReadInteger('Сумма в купюрах, руб:'); if m.Zip(k,(p,q)->p*q).Sum<n then begin // нехватка монет Writeln('Размен невозможен'); exit end; var s:=''; // для результатов for var i:=k.Length-1 downto 0 do if (n>=k[i]) and (m[i]>0) then begin // номинал участвует var t:=min(n div k[i],m[i]); // кол-во монет n:=n-k[i]*t; // остаток if s.Length>0 then s+=', '; s+=t+' по '+k[i]+' руб.'; end; if n<>0 then Writeln('Размен невозможен') else Writeln(s) end.
Примеры Кол-во монет по 1 2 5 10 руб: 350 215 86 130 Сумма в купюрах, руб: 1526 130 по 10 руб., 45 по 5 руб., 1 по 1 руб.
Кол-во монет по 1 2 5 10 руб: 500 146 0 38 Сумма в купюрах, руб: 432 38 по 10 руб., 26 по 2 руб.
Кол-во монет по 1 2 5 10 руб: 10 20 30 40 Сумма в купюрах, руб: 25000 Размен невозможен
Сама думай
Объяснение: