Tệp và thao tác với tệp

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

Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kỳ và đếm số lần của nó xuất hiện trong chuỗi đã nhập.

Phan Tiến Đạt
25 tháng 6 2020 lúc 20:43

uses crt;
var kitu,chuoi: string;
n,i:integer;
begin
clrscr;
n:= 0;
write('Nhap 1 chuoi bat ki: ');readln(chuoi);
write('Nhap 1 ki tu bat ki: ');readln(kitu);
for i:= 1 to length(chuoi) do
if kitu = chuoi[i] then n:= n + 1;
write('So lan xuat hien cua ',kitu,' trong chuoi la: ', n);
readln
end.


Các câu hỏi tương tự
Khoa Nhật
Xem chi tiết
Enter Until
Xem chi tiết
Quyền
Xem chi tiết
Anh Em Song Sinh
Xem chi tiết
Katakabe Yue Kaito
Xem chi tiết
Vũ văn huy
Xem chi tiết
Mai Ngọc quỳnh
Xem chi tiết
Vũ Hữu Đại
Xem chi tiết
Hoàng Long
Xem chi tiết