Дана последовательность произвольных символов(вводится с клавиатуры) подсчитать...

Question

Дана последовательность произвольных символов(вводится с клавиатуры) подсчитать количество строчных(маленьких) букв латинского алфавита в этой последовательности. Паскаль

Answer 1

Var s,st: string;
    i,k: integer;
begin
  st:='abcdefghqijklmnoprstuvwxyz';
  write('строка: ');  readln(s);
  k:=0;
  for i:=1 to length(s) do
     if pos(s[i],st)>0 then k:=k+1;
  writeln(k);
end.

строка: Это lat строка.
3