Lập trình Pascal tách số ra khỏi chuỗi. VD: Nhập: texxt////1234pa5cal567 Kết quả: 1234 5 567
2 câu 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.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
