MAXNUM - Tìm số lớn nhất trong xâu
Xem dạng PDF
Gửi bài giải
Điểm:
2,00 (OI)
Giới hạn thời gian:
0.07s
Giới hạn bộ nhớ:
256M
Tác giả:
Dạng bài
Ngôn ngữ cho phép
C, C#, C++, Go, Java, Pascal, Perl, PHP, PyPy, Python, Ruby, Rust, Scratch, Swift
Hãy lập trình ra 1 chương trình tìm ra số lớn nhất ở trong xâu !!
Input
1 Dòng chứa xâu str có độ dài không quá 1000 chữ số
Output
Số lớn nhất ở trong xâu đó
Sample
Input #1
Abc1234ef99gH0
Output #1
1234
Hint
Ở test 1: Có 3 số : 1234;99;0 nên số lớn nhất là 1234
Problem source: apok
Bình luận
CODE FULL TEST BẰNG PASCAL:
var s, tmp, MX: ansistring; i: longint; function compare(x, y: ansistring): ansistring; begin if length(x) > length(y) then exit(x); if length(y) > length(x) then exit(y); if x > y then exit(x) else exit(y); end;
procedure enter; begin readln(s); MX := ''; tmp := ''; for i := 1 to length(s) do begin if s[i] in ['0'..'9'] then begin tmp := tmp + s[i]; end else begin if length(tmp) <> 0 then begin while (length(tmp) > 1) and (tmp[1] = '0') do begin delete(tmp, 1, 1); end; MX := compare(MX, tmp); tmp := ''; end; end; end; if length(tmp) <> 0 then begin while (length(tmp) > 1) and (tmp[1] = '0') do delete(tmp, 1, 1); MX := compare(MX, tmp); end; writeln(MX); end; begin enter; readln; end.
Thử với s = abc----++++++++-976-0787++++-0896
test 11 là gì vậy mn? à là số âm =))