Ôn tập cuối năm

HM

Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập

KL
10 tháng 5 2023 lúc 21:03

Var s,st:string;

i:integer;

Begin

Write('Nhap xau ');readln(s);

For i:=1 to length(s) do

If s[i] in ['0'..'9'] then st:=st+s[i];

Write('Cac ki tu so co trong day la ',st);

Readln

End.

Bình luận (0)
HM
10 tháng 5 2023 lúc 20:29

giúp em với ạ em cảm ơn nhìuu

Bình luận (0)

Các câu hỏi tương tự
NX
Xem chi tiết
TB
Xem chi tiết
AT
Xem chi tiết
HN
Xem chi tiết
PT
Xem chi tiết
TL
Xem chi tiết
PD
Xem chi tiết
LH
Xem chi tiết
NX
Xem chi tiết