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

Question

Информатика

Вевея

17 сентября, 17:28

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

+3

Ответы (1)

Знаешь ответ?

Филипп · Answer 1

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