Bài 12: Kiểu xâu

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

Hãy viết chương trình:

Nhập vào 1 xâu kí tự và kiểm tra số lần 1 kí tự t bất kì xuất hiện trong xâu vừa nhập

Nhập xâu: Covid

Kí tự kiểm tra: o

Kết quả: 1 (Tức là có 1 kí tự o)

Nguyễn Lê Phước Thịnh
27 tháng 4 2020 lúc 21:31

uses crt;

var st:string;

t:char;

d,i,dem:integer;

begin

clrscr;

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

d:=length(st);

write('nhap ki tu:'); readln(t);

dem:=0;

for i:=1 to d do

if st[i]=t then inc(dem);

writeln('Trong xau co ',dem,' ki tu ',t);

readln;

end.


Các câu hỏi tương tự
Thiên Thiên
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Tiên Tiên
Xem chi tiết
Duy Nguyễn
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
Phạm Tiền Phong
Xem chi tiết
Giang Tống
Xem chi tiết
Nguyễn Thị Diễm Hạnh
Xem chi tiết
Trần Thanh Trọng
Xem chi tiết
Yone Kaido
Xem chi tiết