Question

Nhập vào một xâu bất kỳ kiểm tra xem kí tự số hay kí tự chữ cái nhiều hơn

Answer 1

Program HOC24;

var i,l,k: byte;

s: string;

begin

write('Nhap xau: '); readln(s);

k:=0; l:=0;

for i:=1 to length(s) do

begin

if s[i] in ['A'..'z'] then k:=k+1;

if s[i] in ['0'..'9'] then l:=l+1;

end;

if l>k then write('So ki tu chu cai nhieu hon ki tu chu so');

if l<k then write('So ki tu chu so nhieu hon ki tu chu cai');

if l=k then write('So ki tu chu so bang so ki tu chu cai');

readln

end.