Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6

Bài 12: Kiểu xâu

MK

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)

NT
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.

Bình luận (0)

Các câu hỏi tương tự
TT
Xem chi tiết
NC
Xem chi tiết
TT
Xem chi tiết
DN
Xem chi tiết
TP
Xem chi tiết
PP
Xem chi tiết
GT
Xem chi tiết
NH
Xem chi tiết
TT
Xem chi tiết
YK
Xem chi tiết