var n,m:longint;
begin
read(n);
n:=100-n;
repeat
if n>=100 then
begin
n:=n-100;
m:=m+1;
continue;
end;
if n>=50 then
begin
n:=n-50;
m:=m+1;
continue;
end;
if n>=20 then
begin
n:=n-20;
m:=m+1;
continue;
end;
if n>=10 then
begin
n:=n-10;
m:=m+1;
continue;
end;
if n>=5 then
begin
n:=n-5;
m:=m+1;
continue;
end;
if n>=1 then
begin
n:=n-1;
m:=m+1;
continue;
end;
until n=0;
write(m);
end.
1
