Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Yb Peter

viết công thức nhập vào 1 xâu. đếm xem trong xâu vừa nhập có bao nhiêu chữ, bao nhiêu số A nêu ý tưởng B viết ct có giải thích

Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 16:56

uses crt;

var st:string;

a:array[1..255]of string;

i,n,d,kt,j,dem,dem1,dem2:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=1;

a[1]:=st[1];

for i:=1 to d do 

  begin

kt:=0;

for j:=1 to dem do 

  if a[j]=st[i] then kt:=1;

if kt=0 then

begin

dem:=dem+1;

a[dem]:=st[i];

end;

end;

dem1:=0;

dem2:=0;

for i:=1 to dem do 

begin

if st[i] in ['A'..'Z'] then dem1:=dem1+1;

if st[i] in ['a'..'z'] then inc(dem1);

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

end;

writeln(dem1);

writeln(dem2);

readln;

end.


Các câu hỏi tương tự
Phương Vũ Hà
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
Tình Nguyễn thanh
Xem chi tiết
Nguyen Dao
Xem chi tiết
Thangg PH
Xem chi tiết
Hà Văn Tài
Xem chi tiết
Nghiệp
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết
NTKL
Xem chi tiết