Четные N — Factorial — это произведение всех чиселот 1 до N. Для заданного числа N…

Только с олимпиады, много лишнего (наверно) но как есть.uses crt; var a,s,f,i: integer; f1,s1: string; r,g: text; beginassign (r,'C: \Ain.txt'); reset (r); readln (r,a); close (r); f: =1; for i: =2 to a dof: =f*i; str (f,f1); for i: =1 to length (f1) dobegins1: =copy (f1,1,1); if s1<>'0' thendelete (f1,1,1); end; for i: =1 to length (f1) dobegins1: =copy (f1,1,1); if s1='0' thens: =s+1; end; assign (g,'C: \Aout.txt'); rewrite (g); writeln (g,s); close (g); end.