6.3
const
n = 5;
var
i,j : integer;
ch,zn : integer;
r : real;
begin
r := 0;
for i := 1 to n do
begin
ch := 0;
zn := 1;
for j := 1 to i do
begin
ch := ch + j;
zn := zn * j;
end;
//writeln (i,' ',ch,'/',zn);
r := r + ch/zn;
end;
writeln (r:3:2);<span>
end.</span>
Var a,b,c:integer;begin readln(a); readln(b); readln(c); writeln((a+b+c)/3);end.
Пошагово распишем:
0. 52...12
1. 40...12
2. 28...12
3. 16...12
4. 4...12
5. 4...8
6. 4...4
В итоге исполнителю понадобится 6 шагов, чтобы уравнять количество фишек в кучке.
Ответ: 6.