Meosas 1 ноября 2019 в 07:37

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

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

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]lt;gt;s2[i] then inc(n);  writeln(n);end.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте