Lập Trình Pascal Tách Số Ra Khỏi Chuỗi. VD: Nhập

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

benanbi
Chưa có nhóm

Trả lời
0
Điểm
15
Cảm ơn
0

Tin Học
Lớp 8
40 điểm
benanbi - 18:49:29 02/10/2019

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

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

keyy
_Interesting_

Trả lời
1742
Điểm
353
Cảm ơn
1315

keyy

06/11/2019

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.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1
Báo vi phạm

Đăng nhập để hỏi chi tiết avatar

newborn
Accueil des développeurs 3

Trả lời
4327
Điểm
2546
Cảm ơn
1958

newborn

13/06/2022

uses crt;var s: string; i: integer;beginclrscr; write('Nhap: '); readln(s); for i:=1 to length(s) do if (s[i] in ['0'..'9']) and (s[i+1] in ['0'..'9']) then write(s[i]) else if s[i] in ['0'..'9'] then begin write(s[i]); writeln; end; readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?