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