N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA

N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA
Гость
Ответ(ы) на вопрос:
Гость
Только с олимпиады, много лишнего(наверно) но как есть. uses crt; var a,s,f,i:integer;     f1,s1:string;     r,g:text; begin assign (r,'C:\Ain.txt'); reset (r); readln (r,a); close (r); f:=1; for i:=2 to a do f:=f*i; str(f,f1); for i:=1 to length(f1) do begin s1:=copy(f1,1,1); if s1<>'0' then delete(f1,1,1); end; for i:=1 to length(f1) do begin s1:=copy(f1,1,1); if s1='0' then s:=s+1; end; assign (g,'C:\Aout.txt'); rewrite (g); writeln (g,s); close(g); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы