Cho minh cau tra loi hay nhat nhe
_______________
program demchu;
Uses CRT;
var fi, fo: text;
a: array[1..1000] of integer;
X: array[1..1000] of string;
I, j,h:integer;
s,d,e:string; {cho nay de sai string chi dai toi da 255 ki tu}
BEGIN
assign(fi,'BAI2.INP');
assign(fo,'BAI2.OUP');
reset (fi);
readln(fi, s);
j:=1;
For i := 1 to length(s) do { neu de ko sai thi thay I:=2}
if s[i] <> "/" then x[j]:= X[j] + s[i] else j:= j + 1;
For i:= 1 to j do Val(X[i],a[i],h);
For i:= 1 to j do d[i] := chr(a[i]);
For i:= 1 to length (d) do if d[i] in ['A'..'Z'] then t:=t+1;
rewrite(fo); write(fo,t);
close(fi); close(fo);
END.
