пожалуйста, очень надо

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

1

Ответы и объяснения

Лучший Ответ!
2011-12-21T03:16:06+00:00

var

i,j,k:integer;

s,p:string;

begin

p:='ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

readln(s);

k:=0;

for i:=1 to length(s) do

for j:=1 to length(p) do

if s[i]=p[j] then k:=k+1;

writeln(k);

end.