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

Question

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

in progress 0
Thông Đạt 4 years 2021-01-08T01:51:32+00:00 3 Answers 43 views 0

Answers ( )

  1. thugiang
    0
    2021-01-08T01:53:24+00:00
    Reply

    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.

  2. thienhuong
    0
    2021-01-08T01:53:32+00:00
    Reply

    vâng

  3. sori
    0
    2021-01-08T01:53:38+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo tách số ra khỏi chuỗi các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )