3,7 - документ
1,4-устройство
2,6-папка
5,8-ярлык
var
a : integer;
fac : BigInteger := 1;
begin
readln(a);
if a > 0 then for var i := 1 to a do fac *= i;
writeln(a, '!=', fac);
end.
72•29ч тс стст состоят тстаооа
121:2=60(1)
60:2=30(0)
30:2=15(0)
15:2=7(1)
7:2=3(1)
3:2=(1)(1)
число: 1111001
Ответ: 5 единиц
Пошагово распишем:
0. 52...12
1. 40...12
2. 28...12
3. 16...12
4. 4...12
5. 4...8
6. 4...4
В итоге исполнителю понадобится 6 шагов, чтобы уравнять количество фишек в кучке.
Ответ: 6.