Дана строка. Подсчитать количество содержащихся в ней прописных латинских букв. символы можно сравнивать. В компьютерном алфавите они идут по порядку. Например, 'B' > 'A'.

Question

Арсен

14 марта, 11:55

+4

Ответы (1)

Знаете ответ?

Вера · Answer 1

Var

a, i:integer;

s:string;

begin

readln (s) ;

for i:=1 to length (s) do

if s[i]<='Z' then a:=a+1;

writeln (a) ;

end.