Ẩn danh

Nhập vào từ bàn phím một xâu bất kỳ, cho biết số lượng và danh sách các chữ số có mặt trong xâu?

NT
4 tháng 5 2024 lúc 8:48

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i] in ['0'..'9'] then 

begin

write(st[i]:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
BL
Xem chi tiết
DV
Xem chi tiết
HH
Xem chi tiết
LT
Xem chi tiết
TL
Xem chi tiết
1L
Xem chi tiết
CL
Xem chi tiết
NL
Xem chi tiết
SB
Xem chi tiết
1L
Xem chi tiết