РЕБЯТА ПОМОГИТЕ!!! ЗАДАЧА ввести строку и определить количество заглавных букв

Question

РЕБЯТА ПОМОГИТЕ!!! ЗАДАЧА
ввести строку и определить количество заглавных букв

Comments

паскаль?

Answer 1

Думаю, немного нестандартный способ, но зато работает))

var  s1,s2:string;  i,n:integer;begin  readln(s1);  s2:=LowerCase(s1);  writeln(s2);  for i:=1 to length(s1) do    if s1[i]<>s2[i] then inc(n);  writeln(n);end.

Comments

vars1,s2:string; i,n:integer;begin readln(s1); s2:=LowerCase(s1); writeln(s2); for i:=1 to length(s1) do if s1[i]<>s2[i] then inc(n); writeln(n);end.

---

Господи, да как код здесь нормально отформатировать, жму shift+enter, а он не переносит строку, а отправляет сообщение -_-