program oken; uses crt; var s: string; i,dem: byte; begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['0'..'9'] )then dem:=dem+1; writeln('So ki tu so trong xau: ',dem); readln; end.
program Min; var s:string; i,dem:integer; begin write('Nhap xau: '); readln(s); for i:=1 to length(s) do S[i]:=upcase(S[i]); for i:=1 to length(s) do if copy(s,i,3)='HOA' then inc(dem); writeln('So tu "hoa" xuat hien trong xau la: ',dem); readln end.