Viết chương trình nhập vào một xâu ký tự sau đó đếm xem trong xâu có bao nhiêu ký tự a
Chọn đáp án đúng nhất (Tin học - Lớp 4)
1 trả lời Chọn đáp án đúng nhất (Tin học - Lớp 4) 1 trả lời Chọn đáp án đúng nhất (Tin học - Lớp 4) 1 trả lời Tính (Tin học - Đại học) 1 trả lời Muốn vẽ được hình vuông bạn dùng lệnh gì? (Tin học - Lớp 5) 2 trả lời Hãy luôn nhớ cảm ơn và vote 5*
XEM GIẢI BÀI TẬP SGK TIN 11 - TẠI ĐÂY
Viết phương trình nhập vào 1 xâu kí tự , và đếm số lượng kí tự 'A' có trong xâu . Các câu hỏi tương tự
Viết chương trình nhập vào một xâu a, đếm số ký tự trắng có trong xâu a. Các câu hỏi tương tự
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. |