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ập trình Pascal tách số ra khỏi chuỗi.
VD:
Nhập: texxt////1234pa5cal567
Kết quả:
1234
5
567
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:
Giải bởi Vietjack
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.
Hot: 1000+ Đề thi cuối kì 2 file word cấu trúc mới 2026 Toán, Văn, Anh... lớp 1-12 (chỉ từ 60k). Tải ngay
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
N = int(input("Nhập số N : "))
for i in range(1, 10) :
print(N ,' x ', i,' = ', N * i)
Lời giải
Cách kí hiệu góc:
1. widehat{ABC} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \widehat{ABC}
2. hat{ABC} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \hat{ABC}
⊕ Dấu gạch ngang:
1. overline{abab} ⇒ Sau đó bạn thêm dấu "\" vào đầu câu nha
Vd: \overline{abab}
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Nhắn tin Zalo
Hỏi bài tập