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

lour1 lour1    1   16.08.2019 15:00    1

Ответы
marichkakyhar marichkakyhar  04.10.2020 23:03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика