NguyenThanhThe11Sinh, Pascal

NguyenThanhThe11Sinh

program Bai_Kiem_Tra;
uses crt;
var N:string;
a,b,c:string;
x,y,z,t,i,j,q:integer;
begin
clrscr;
writeln('Nhap xau');
readln(N);
x:=0;
y:=0;
z:=0;
t:=0;
q:=length(N);
for i:=1 to q do 
    begin 
    if N[i]=' ' then
    
    x:=x+1;
    
    if (N[i]='a') or (N[i]='b')or (N[i]='c')or (N[i]='d') or (N[i]='e') or (N[i]='f') or (N[i]='g')or (N[i]='h') or (N[i]='i') or (N[i]='j') or (N[i]='k') or (N[i]='l') or (N[i]='m') or (N[i]='n') or (N[i]='o') or (N[i]='p') or (N[i]='q') or (N[i]='r') or (N[i]='s') or (N[i]='t') or (N[i]='u') or (N[i]='v') or (N[i]='x') or (N[i]='w') or (N[i]='y') or (N[i]='z') or (N[i]='A') or (N[i]='B') or (N[i]='C') or (N[i]='D') or (N[i]='E') or (N[i]='F') or (N[i]='G') or (N[i]='H') or (N[i]='I') or (N[i]='J') or (N[i]='K') or (N[i]='L') or (N[i]='M') or (N[i]='N') or (N[i]='O') or (N[i]='P') or (N[i]='Q') or (N[i]='R') or (N[i]='S') or (N[i]='T') or (N[i]='U') or (N[i]='V') or (N[i]='W') or (N[i]='X') or (N[i]='Y') or (N[i]='Z') then 
    y:=y+1;
  
    if (N[i]='0') or (N[i]='1') or (N[i]='2') or (N[i]='3') or (N[i]='4') or (N[i]='5') or (N[i]='6') or (N[i]='7') or (N[i]='8') or (N[i]='9') then 
    
    z:=z+1;

end;
t:=q-x-y-z;   
 
writeln('So luong khoang trang la ',x);
writeln('So luong chu cai latinh la ',y);
writeln('So luong ky so la ',z);
writeln('So luong ky tu khac la ',t);
if N[1]=' ' then x:=x-1;
if N[q]=' ' then x:=x-1;
j:=x+1;
writeln('So luong tu cua xau la ',j);
readln;
end.


run \| edit \| history \| help	0