Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huyên Lê Thị Mỹ

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

Kiều Vũ Linh
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.

Huyên Lê Thị Mỹ
10 tháng 5 2023 lúc 20:29

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


Các câu hỏi tương tự
Nguyễn Thị Thanh Xuân
Xem chi tiết
Thanh Bình
Xem chi tiết
Ánh Thi
Xem chi tiết
Hồ Nguyên
Xem chi tiết
Pham Huynh Bao Thy
Xem chi tiết
Tài Tuệ Lê
Xem chi tiết
Phan Văn Thái Dương
Xem chi tiết
Lê Minh Hiếu
Xem chi tiết
Nguyễn Thị Thanh Xuân
Xem chi tiết