Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
practica 2 ejercicio 1
Tri 1.0
Squad equation
JONES AKPOTU
1januar2018
practica 3 ejercicio B1
For1
Weather
zadacha1
Грицанова. Стр. 77. Задача 6.18