Книга, т. к. это носитель информации
Первое, если я правильно поняла задание
Получится такая последовательность кодов:
<span>86 42 01 41 83 43 01 41 86 42</span>
<span>
</span>
Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>
Четных чисел 3: 2,4,6. Одно из них можно выбрать 3 -мя способами. Из оставшихся 6 можно составить 6! = 720 перестановок, следовательно, всего перестановок - 720*3 = 2160