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

Question

Информатика

Сергей

14 апреля, 04:33

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

+4

Ответы (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