Question

С клавиатуры вводят строку. Составить программу, которая: подсчитывает количество прописных букв.

Answer 1

var  
s: string;
i,n : integer;
begin
 s:='';
n:=0;    
readln(s);
for i:=1 to length(s) do
if s[i] in ['а'..'я'] then n:=n+1;
writeln(n);
end.

будет искать количество русских прописных букв.

Answer 2

спасибо братюн, очень выручил)