N¤~¤Factorial- это произведение всех чиселот…

Question

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

Answer 1

42

mirina

20 февраля 2023

Только с олимпиады, много лишнего (наверно) но как есть.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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: