nhập xâu s. ghi ra xâu con chứa kí tự số dài nhất(free pascal)

1 câu trả lời

Mình sẽ tìm từng kí tự số trong chuỗi và lưu vào mảng. Sau đó tìm phần tử mảng dài nhất để in ra màn hình;

code

Var so:array[1..1000] of string;
s,sm:string;
i,j:integer;
a,b:boolean;
BEGIN
Readln(s);
j:=1;
For i:= 1 to length(s) do
begin
        if s[i] in ['0'..'9'] then so[j]:=so[j] + s[i];
        a := s[i] in ['a'..'z']+['A'..'Z'];
        b := s[i-1] in['0'..'9'];
        if a and b then inc(j);
end;
sm:=so[1];
For i:=2 to j do if length(sm)<length(so[i])then sm := so[i];
Writeln(sm);
Readln;
END.

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

I. ĐỌC HIỂU (3,0 điểm) Đọc đoạn trích: Chỉ cần mở cửa lòng mình, bước xuống đời, đi thật chậm, quan sát thật sâu, chúng ta sẽ thấy chật cứng quanh mình những phận đời cúi mặt đang cần một bàn tay nắm. Và trên con đường mỗi ngày của mình, dù ở Ca-li hay Sài Gòn, tôi cũng may mắn được tiếp xúc với những mảnh đời mà ở họ, tôi học được cách trao đi và nhận về một thứ hạnh phúc ngọt ngào, hạnh phúc được làm một-người-có-giá-trị, dù chỉ cho một ai đó xa lạ vừa thoáng qua đời mình. […] Tôi không có ý niệm thi vị hóa đời sống này, nhưng luôn hằng tin những điều tốt đẹp và ngọt ngào của con người hay giữa người với người vẫn ăm ắp quanh đây. Chỉ có điều đôi khi chúng bị che lấp bởi những ngờ vực mà chúng ta dành cho nhau. Nếu được, hãy cùng nhau đập bỏ những bức tường kiên cố bao bọc lòng mình, hãy để trái tim rung lên như nó được sinh ra phải làm thế. Khi ấy, không chỉ trao đi, việc nhận lại cũng dễ dàng hơn. Bởi yêu thương đã có được khoảng không gian rộng mở để được nuôi dưỡng và lớn lên. Cố nhiên, không phải lúc nào tôi cũng gặp những người tốt, nhưng ngay cả không được như vậy, tôi vẫn trận quý họ và những cuộc gặp gỡ ấy. Tôi học được từ tất cả mọi người, từ tất cả niềm vui hay nỗi buồn, rằng cuộc sống vốn dĩ không vẹn trọn hay tươi sáng. Vấn đề chỉ là chúng ta chọn bề nào để cầm nắm hay nhìn ngó nó mà thôi. (Hồng Hải, Thương được cứ thương đi, NXB Hà Nội, 2020, trang 4-5) Thực hiện các yêu cầu: Câu 1. Chỉ ra phương thức biểu đạt chính của đoạn trích. Câu 2. Theo đoạn trích, chúng ta cần làm gì để yêu thương “có được khoảng không gian rộng mở để được nuôi dưỡng và lớn lên”? Câu 3. Theo anh/chị, vì sao tác giả cho rằng “những điều tốt đẹp và ngọt ngào của con người hay giữa người với người vẫn ăm ắp quanh đây”? Câu 4. Anh/Chị có đồng tình với ý kiến của tác giả: “hạnh phúc được làm người có giá trị” không? Vì sao?

3 lượt xem
1 đáp án
14 giờ trước