const n = 10000;//Не изменяемая по ходу программы переменная var a: array[1..n] of integer; b: array[1..10]of integer; c: array[1..10]of integer; i, s, v: integer; begin for i := 1 to 10 do //Заполнение массива с числами от 1 до 10 c[i] := i; for i := 1 to n do //Заполнение массива a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей for i := 1 to n do case a[i] of 1: b[1] := b[1] + 1; 2: b[2] := b[2] + 1; 3: b[3] := b[3] + 1; 4: b[4] := b[4] + 1; 5: b[5] := b[5] + 1; 6: b[6] := b[6] + 1; 7: b[7] := b[7] + 1; 8: b[8] := b[8] + 1; 9: b[9] := b[9] + 1; 10: b[10] := b[10] + 1; End; for i := 1 to 10 do for s := 1 to 9 do if b[s] > b[s + 1] then begin v := b[s]; b[s] := b[s + 1]; b[s + 1] := v; v := c[s]; c[s] := c[s + 1]; c[s + 1] := v; end; writeln(c[10], ' - их ', b[10]); end.
Так как сам только начал разбирать эту тему, ответ не уверен что правильный.
Чтобы данное уравнение обращалось в 1, нужно что бы (K*L) ->M = 1 И N*K*V*L = 1.
составляем систему. 1) N*K*L*V = 1 только при N=K=L=V=1; следовательно возможно лишь одно решение данной части 1111. Проверим другую часть 2) K*L - > M = 1 Упростив, получим НЕ K * НЕ L * M = 1; здесь уже больше вариантов, а именно 101; 111; 110; 100; 001, и для каждого еще подходят 2 значения переменной V, так как она не участвует в этой операции. Получим 1010 1011 1111 1110 1100 1101 1001 1000 0010 0011. Но так как оба условия должны выполняться, то подходит лишь ответ 1111.
const n = 10000;//Не изменяемая по ходу программы переменная
var a: array[1..n] of integer; b: array[1..10]of integer; c: array[1..10]of integer; i, s, v: integer;
begin for i := 1 to 10 do //Заполнение массива с числами от 1 до 10 c[i] := i; for i := 1 to n do //Заполнение массива a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей for i := 1 to n do case a[i] of 1: b[1] := b[1] + 1; 2: b[2] := b[2] + 1; 3: b[3] := b[3] + 1; 4: b[4] := b[4] + 1; 5: b[5] := b[5] + 1; 6: b[6] := b[6] + 1; 7: b[7] := b[7] + 1; 8: b[8] := b[8] + 1; 9: b[9] := b[9] + 1; 10: b[10] := b[10] + 1; End; for i := 1 to 10 do for s := 1 to 9 do if b[s] > b[s + 1] then begin v := b[s]; b[s] := b[s + 1]; b[s + 1] := v; v := c[s]; c[s] := c[s + 1]; c[s + 1] := v; end; writeln(c[10], ' - их ', b[10]); end.
Чтобы данное уравнение обращалось в 1, нужно что бы (K*L) ->M = 1 И N*K*V*L = 1.
составляем систему.
1) N*K*L*V = 1 только при N=K=L=V=1; следовательно возможно лишь одно решение данной части 1111. Проверим другую часть
2) K*L - > M = 1 Упростив, получим НЕ K * НЕ L * M = 1;
здесь уже больше вариантов, а именно
101; 111; 110; 100; 001, и для каждого еще подходят 2 значения переменной V, так как она не участвует в этой операции. Получим
1010 1011 1111 1110 1100 1101 1001 1000 0010 0011.
Но так как оба условия должны выполняться, то подходит лишь ответ 1111.
Опять же повторюсь, не уверен, что правильно!