Подсчитать количество заглавных букв в английском алфавите в Паскале

Question

Информатика

Вильгельм

16 декабря, 06:56

Подсчитать количество заглавных букв в английском алфавите в Паскале

+5

Ответы (1)

Знаете ответ на вопрос?

Игуся · Answer 1

Var

s:string;

i, n:integer;

begin

Write ('Введите текст: ') ; Readln (s) ;

for i:=1 to Length (s) do

if s[i] in ['A' ... 'Z'] then Inc (n) ;

Writeln ('Найдено заглавных букв - ', n)

end.

Пример

Введите текст: London is the capital of Great Britain

Найдено заглавных букв - 3