При безошибочной игре выигрывает первый игрок. Своим первым ходом он должен взять один камень. В куче останется пять камней. Какой бы ход ни сделал второй игрок, в куче останется 4, 3 или 2 камня. Это позволяет первому игроку своим вторым ходом оставить в куче ровно один камень, его и должен будет забрать своим вторым ходом второй игрок
Открываем виндовый калькулятор, выбираем режим "программирование"
1) 49_10 вбиваем в калькулятор и нажимаем равно
HEX это 16 ричные = 2А
OCT это 8 ричные = 52
BIN это двоичные = 00101010
2)109 (не забыть выбрать режим DEC - десятичные числа) = 1101101 BIN 7 единичек
3) переключаем в двоичный режим, вбиваем перво число, плюс, второе число, равно 00100100
4)переключаем в двоичный режим, вбиваем перво число, минус, второе число, равно 1010
5)переключаем в двоичный режим, вбиваем перво число, умножить, второе число, равно 10010001
6) вбиваем 45 в десятичном режиме и переключаем режимы пока не встретим число 55, это оказывается восьмиричный режим, значит х=8
Const
N = 13;
Var
A:array[1..N] of integer;
i,Max,Min,S:integer;
Begin
Randomize;
Write('Исходный массив A(',N,'):');
Min:=1;
Max:=1;
For i:= 1 to N do
Begin
A[i]:=random(201)-100;
Write(' ',A[i]);
if A[i]<A[Min] then Min:=i;
if A[i]>A[Max] then Max:=i;
S:=S+A[i];
End;
WriteLn;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);
WriteLn('Среднее арифметическое элементов массива = ',S/N);
Write('Новый массив:');
S:=A[Min];
A[Min]:=A[Max];
A[Max]:=S;
For i:= 1 to N do
Write(' ',A[i])
End.
Пример работы программы:
Исходный массив A(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44
Min(A) = A[6] = -73
Max(A) = A[7] = 93
Среднее арифметическое элементов массива = 9.15384615384615
Новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>