Для числа n определите, сколько нулей в конце десятичной записи n - факториал

Var n,k2,k5,i,a: integer; begin write('n='); read(n); k2: =0; k5: =0; for i: =2 to n do   begin   a: =i;   if a mod 2=0 then   while a> =2 do     begin     a: =a div 2;     k2: =k2+1;     end;   a: =i;   if a mod 5=0 then   while a> =5 do     begin     a: =a div 5;     k5: =k5+1;     end;   end; if k2< k5 then write(k2) else write(k5); readln end.

1) выполняется &   :     9& 26;     9=1001 (2cc)   26=16+8+2=11010 (2cc)   11010 &   01001   01000 - результат побитовой 9& 26   (лог умножение) 2) 15=1111 (2cc)       1111   |      1000       1111 - результат первой |   (или - лог сложение) 3) 12=8+4=1100 (2сс)     1111   |     1100     1111 - результат второй | 4) 29=16+8+4+1=11101 (2cc)       11101   ^       01111   результат ^       10010   =2^4+2^1 =16+2=18           ответ 18

Жил был планшет. маша каждый день с ним игралась и фотографировалась. она каждый день скачивала приложения на планшет. после чего в планшет ничего не влезало. из 20гигабайтов были свободны только 1гигабайт. ему стало плохо и он начал глючить. маша перестала в него играть и родители купили ей телефон на 64гигабайт. планшет обиделся и сильно заболел. родители увидев это, отвезли его на ремонт. там его чинили 2недели. маше нравился ее новый телефон, но она скучала по своему старому доброму планшету. после ремонта, планшету стало легче. маша отдала свой телефон маме, а планшет обратно взяла к себе. сразу же купила ему зарядное устройство, красивенький чехол и прикольный брелок. после этого, она стала дорожить им и не скачивать вирусные приложения!