Question

viết chương trình kiểm tra xâu có bao nhiêu chữ cái, chữa số và chuyển xâu vừa nhập thành in hoa

 

Answer 1

uses crt;

var st:string;

i,d,dem,dem1:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

dem1:=0;

for i:=1 to d do 

  begin

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

if st[i] in ['0'..'9'] then inc(dem1);

end;

writeln('So chu cai trong xau la: ',dem);

writeln('So chu so trong xau la: ',dem1);

for i:=1 to d do 

  st[i]:=upcase(st[i]);

writeln('Xau sau khi in hoa la: ',st);

readln;

end.