begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
Пошагово распишем:
0. 52...12
1. 40...12
2. 28...12
3. 16...12
4. 4...12
5. 4...8
6. 4...4
В итоге исполнителю понадобится 6 шагов, чтобы уравнять количество фишек в кучке.
Ответ: 6.
<h2>Пункт 1</h2>
- (e) Слог
- (b) Буква
- (a) Слово
- (f) Предложение
- (c) Абзац
- (d) Документ
<h2>Пункт 2</h2>
- (d) Знак операции
- (b) Оператор
- (c) Процедура
- (a) Программа
<h2>Пункт 3</h2>
(очень спорно насчёт (a) и (d))
- (a) Микросхема
- (d) Транзистор
- (c) Материнская плата
- (b) Системный блок
Ответ:
__________________________________________________________