Альберт
7 год назад
Дана строка. Подсчитать количество содержащихся в ней прописных латинских букв.символы можно сравнивать. В компьютерном алфавите они идут по порядку. Например, 'B' > 'A'.
ОТВЕТЫ
Евсевий
Jul 11, 2019
Var
a,i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if s[i]lt;=Z then a:=a+1;
writeln(a);
end.
a,i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if s[i]lt;=Z then a:=a+1;
writeln(a);
end.
201
Смежные вопросы:
