Viết Chương Trình Nhập Vào Một Xâu Và Một Ký Tự(ch) đếm Xem Ký Tự ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý Nguyễn Nhật Hạ Hỏi từ APP VIETJACK đã hỏi trong Lớp 11 Tin học · 15:13 07/03/2022 Báo cáo viết chương trình nhập vào một xâu và một ký tự(ch) đếm xem ký tự (ch) đó xuất hiện trong xâu bao nhiêu lần Trả Lời Hỏi chi tiết Trả lời trong APP VIETJACK ...Xem câu hỏi chi tiết

Quảng cáo

1 câu trả lời 2686

N Namedsolabs99 2 năm trước

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.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Câu hỏi hot cùng chủ đề

• Hàm cho giá trị bằng bình phương của x là :

  A. Sqrt(x);

  B. Sqr(x);            

  C. Abs(x);

  D. Exp(x);