program oken; uses crt; var s: string[200]; i: byte; begin clrscr; write('Nhap xau: '); readln(s); write('Cac ki tu la so trong xau: '); for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i],' '); readln; end.
uses crt; var st : string; i,d : integer; begin clrscr; d:=0; write('Nhap xau ki tu :'); readln(st); for i:=1 to length(st) do if (st[i]=#32) and ((st[i-1] in ['0'..'9']) or ( st[i-1] in ['a'..'z']) or (st[i-1] in ['A'..'Z'])) then d:=d+1; write('So tu co trong xau la :',d+1); readln end.
