var str : string; i : longint; count : longint; begin count := 0; readln(str); for i := 1 to length(str) do begin if (str[i] >= 'a') and (str[i] <= 'z') then inc(count); end; writeln('It has ', count, ' lowercases'); end.
输入:NOI2016 will be held in Mian Yang.
输出:1