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

Question

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

Comments

буквы английские или и русские?

---

и как определяется конец строки? точкой?

---

русские

---

а про окончание строки?

---

да хз )условия записал

---

ну допустим оканчивается точкой...

---

разобрался)

---

...

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.

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

Comments

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