107/16=6, остаток 11,
цифра 11 соответствует букве В,
107(10)=6В(16)
124, 126, 142, 146, 162, 164, 214, 216, 241, 246, 261, 264, 412, 416, 421, 426, 462, 464, 612, 614, 621, 624, 641, 642. 24 числа. Вроде так. 19 чётных, 5 нечётных.
Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.