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

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

1. vâng

   Bình luận

2. 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ình luận