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.