program bai_giai; uses crt; var s,st:ansistring; i,d,so:integer; c:char; begin clrscr; write('Nhap S: '); readln(s); d:=0; for i:=1 to length(s) do if s[i]<>'/' then st:=st+s[i] else begin val(st,so); c:=chr(so); st:=''; if c in ['A'..'Z'] then d:=d+1; end; val(st,so); c:=chr(so); if c in ['A'..'Z'] then d:=d+1; write(d); readln; end.
uses crt; var f:text; s,a:ansistring; i,t:longint; begin clrscr; assign(f,'Bai1.inp');reset(f); readln(f,s); s:=s+'/'; close(f); assign(f,'Bai1.out');rewrite(f); for i:=1 to length(s)+1 Do if s[i]='/' then begin val(a,t); write(f,chr(t)); a:=''; end else a:=a+s[i]; close(f); end.
