N - factorial это проезведение всех чисел от 1 до n. для заданного числа N определите...

0 голосов
56 просмотров

N - factorial это проезведение всех чисел от 1 до n. для заданного числа N определите сколько нулей в конце десятичной записи n - factorial


Информатика (12 баллов) | 56 просмотров
Дан 1 ответ
0 голосов

Program 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 write(k5); 
readln
end.

(174 баллов)