Bài 12: Kiểu xâu

PH

Viết chương trình vào 2 xâu S và X. kiểm tra và thông báo số lần xuất hiện của xâu S có trong xâu X

ML
15 tháng 3 2021 lúc 18:47

Program HOC24;

var s,x: string;

d: byte;

begin

write('Nhap xau S: '); readln(s);

write('Nhap xau X: '); readln(x);

d:=0;

while pos(s,x)<>0 do

begin

d:=d+1;

delete(x,pos(s,x),length(s));

end;

write('Co ',d,' lan');

readln

end.

Bình luận (0)

Các câu hỏi tương tự
KM
Xem chi tiết
KM
Xem chi tiết
TP
Xem chi tiết
LN
Xem chi tiết
TT
Xem chi tiết
KM
Xem chi tiết
NV
Xem chi tiết
NC
Xem chi tiết
KM
Xem chi tiết
DN
Xem chi tiết