Thảoo Nguyênn
Hỏi từ APP VIETJACK
viết giúp em chương trình pascal theo yêu cầu sau với ạ : Cho xâu s và s1 nhập từ bàn phím đếm có bao nhiêu xâu s1 trong xâu s
Quảng cáo
2 câu trả lời 296
program dem_xau_s1_trong_s;
var
s, s1: string;
count, i: integer;
begin
write('Nhap vao xau s: ');
readln(s);
write('Nhap vao xau s1: ');
readln(s1);
count := 0;
for i := 1 to length(s) - length(s1) + 1 do
begin
if copy(s, i, length(s1)) = s1 then
count := count + 1;
end;
writeln('So lan xau s1 xuat hien trong xau s la: ', count);
end.
var
s, s1: string;
count, i: integer;
begin
write('Nhap vao xau s: ');
readln(s);
write('Nhap vao xau s1: ');
readln(s1);
count := 0;
for i := 1 to length(s) - length(s1) + 1 do
begin
if copy(s, i, length(s1)) = s1 then
count := count + 1;
end;
writeln('So lan xau s1 xuat hien trong xau s la: ', count);
end.
program dem_xau_s1_trong_s;
var
s, s1: string;
count, i: integer;
begin
write('Nhap vao xau s: ');
readln(s);
write('Nhap vao xau s1: ');
readln(s1);
count := 0;
for i := 1 to length(s) - length(s1) + 1 do
begin
if copy(s, i, length(s1)) = s1 then
count := count + 1;
end;
writeln('So lan xau s1 xuat hien trong xau s la: ', count);
end.
var
s, s1: string;
count, i: integer;
begin
write('Nhap vao xau s: ');
readln(s);
write('Nhap vao xau s1: ');
readln(s1);
count := 0;
for i := 1 to length(s) - length(s1) + 1 do
begin
if copy(s, i, length(s1)) = s1 then
count := count + 1;
end;
writeln('So lan xau s1 xuat hien trong xau s la: ', count);
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86382
Gửi báo cáo thành công!
