Bài 1: Nhập vào một xâu kí tự. Hãy kiểm tra xem xâu vừa nhập có biểu diễn một số nguyên dương hay không. Nếu không, hãy tìm cách xóa đi ít nhất các kí tự trong xâu vừa nhập, để xâu sau khi xóa biểu diễn một số nguyên dương. Ví dụ: Nhập chuỗi: 85h4992va937#249 • Chuỗi vừa nhập không biểu diễn một số nguyên dương • Cần bỏ đi ít nhất 4 kí tự để xâu còn lại biểu diễn một số nguyên dương. • Xâu sau khi xóa các kí tự là: 854992937249 Bài 2: Cho hai xâu kí tự S1 và S2 được nhập từ bàn phím. Hãy đếm số lần xuất hiện của xâu S2 trong xâu S1. Ví dụ: Nhập S1 = “Chung toi di lam vi ban, hay o yen trong nha vi chung toi!” • Nếu S2 = ‘ung’ thì số lần xuất hiện của S2 trong xau S1 là 2 • Nếu S2 = ‘hoa’ thì số lần xuất hiện của S2 trong xau S1 là 0 Bài 3: Viết chương trình thực hiện các công việc sau: a. Nhập vào một xâu kí tự (bao gồm cả các kí tự trống) b. Loại bỏ toàn bộ các kí tự thừa trong xâu (kí tự thừa là các kí tự trống ở đầu, cuối xâu, hoặc kí tự trống cạnh một kí tự trống khác về bên trái). c. Đếm và thông báo số từ của xâu đã nhập, trong đó từ là các kí tự liền nhau không chứa kí tự trống. Ví dụ: Nhập vào xâu: “ Hom nay toi khong di lam “ Kết quả: o Xâu sau khi loại bỏ kí tự thừa là “Hom nay toi khong di lam” o Xâu có 6 từ

2 câu trả lời

Bai 1:

program Tin_hoc;

uses crt;

var i:integer;

     s1,s2:string;

begin

clrscr;

writeln('Nhap xau:');readln(s1);

s2:='';

for i:=1 to length(s1) do if s1[i] in ['0'..'9'] then s2:= s2+s1[i];

writeln(s2);

readln;

end.

Bài 2

program hotrotinhoc;

var s1,s2: string;

i,n,d: integer;

begin

readln(s1);

readln(s2);

while pos(s2,s1)<>0 do

begin

inc(d);

delete(s1,pos(s2,s1),length(s2));

end;

write('So lan xuat hien xau s2 trong xau s1 la :',d);

readln

end.

Câu hỏi trong lớp Xem thêm