Lập trình Pascal tách số ra khỏi chuỗi. VD: Nhập: texxt////1234pa5cal567

Câu 25: Lập trình Pascal tách số ra khỏi chuỗi.

VD:

Nhập: texxt////1234pa5cal567

Kết quả:

1234

5

567

Trả lờ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.