DIGIT0 - Số 0 tận cùng

Tác giả: RR

Ngôn ngữ: Pascal

uses math;
var
  a:ansistring;
  lt2,lt5,i,n:longint;
  c:char;
  cnt:array['a'..'z'] of longint;

function get(n,k:longint):longint;
    begin
      if n<k then exit(0);
      exit(n div k+get(n div k,k));
    end;

begin
  readln(a); n:=length(a);
  for i:=1 to n do
    inc(cnt[a[i]]);
  lt2:=get(n,2);
  for c:='a' to 'z' do
    lt2:=lt2-get(cnt[c],2);

  lt5:=get(n,5);
  for c:='a' to 'z' do
    lt5:=lt5-get(cnt[c],5);
  writeln(min(lt2,lt5));
end.

Download