Nội dung bài viết

    Xem thêm

    Lập trình Pascal tách số ra khỏi chuỗi.

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 983 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Lập trình Pascal tách số ra khỏi chuỗi

    Đề bài: Lập trình Pascal tách số ra khỏi chuỗi.

    VD:

    Nhập: texxt////1234pa5cal567

    Kết quả:

    1234

    5

    567

    Lời giải:

    Uses crt;
    Var St:String;
        i:longint;
    Begin
            Clrscr;
            Write('Nhap sau St: '); Readln(St);
            For i:=1 to length(St) do
                    If (St[i] in ['0'..'9']) and (St[i+1] in ['0'..'9']) then write(St[i])
                    Else If (St[i] in ['0'..'9']) then
                            Begin
                                    Write(st[i]);
                                    Writeln;
                            End;
            Readln;
    End.

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 983 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: