Чисто математически:
11x+7y=4228
7y=4228-11x
y=604-(11x)/7.
Отсюда выбираем x-ы, кратные 7 и не превышающие 604/11 - примерно 55 - чтобы y был натуральным числом.
x: 7, 14, 21, 28, 35, 42, 49.
y: 527, 450, 373, 308, 219, 142, 65.
Таким образом получается 7 пар чисел.
<span>100110 = 25*1 + 24*0 + 23*0 + 22*1 + 21*1 + 20*0 = 32 + 0 + 0 + 4 + 2 + 0 = 38 удачи)</span>
1. 10 ГБ = 10*2^10 МБ = 10*2^20 КБ = 10*2^30 Б = 10*2^33 байт
2. 5 ГБ = 5*2^10 МБ = 5*2^20 КБ
1 байт = 8бит
1 КБ = 1024(2^10) байт
с повышением приставки нужно умножать на 1024.
Сканер - С =200
Принтер - П =250
Монитор - М =450
П | С=450
П & М=40
С & М=50
П | С | М-?
Исходная формула:
<em>П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)</em>
П&C и П&C&M у нас нет.
Посмотрим на П, С, П|C
П+С=П|C, П и С не пересекаются, поскольку их сумма равна их объединению П&С=0, это значит что П&C&M тоже равно 0
Подставим все в формулу:
П | С | М= 250 + 200 + 450 - 40 - 0 - 50 + 0=810
<u>Ответ: 810</u>
Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7