Bài 12: Kiểu xâu

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

Viết chương trình nhập một xâu từ bàn phím .Đếm số lần xuất hiện của các kí tự trong xâu và in ra màn hình

Nguyễn Lê Phước Thịnh
20 tháng 3 2021 lúc 13:30

uses crt;

var st:string;

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

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

begin

clrscr;

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

d:=length(st);

a[1]:=st[1];

dem:=1;

for i:=1 to d do 

  begin

kt:=0;

for j:=1 to dem do 

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

if kt=0 then 

begin

inc(dem);

a[dem]:=st[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to d do 

  if a[i]=st[j] then inc(dem1);

writeln(a[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

Nguyễn Quốc Anh
27 tháng 2 2023 lúc 23:28

uses crt;

var a:string;

     c:char;

     i,dem:integer;

begin

    clrscr;

    readln(a);

    readln(c);

    dem:=0;

    for i:=1 to length(a) do

    if a[i]=c then dem:=dem+1;

    writeln(dem);

    readln;

end.

 


Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Tiên Tiên
Xem chi tiết
Phương Vũ Hà
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Long Nhi
Xem chi tiết
Tiêu Lý Thanh Thanh
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
Nguyễn thị tuyết nhung
Xem chi tiết