Trần Ngọc Nhung
Hỏi từ APP VIETJACK
Cho dãy kí tự (xâu S)nhập từ bàn phím.
Đưa ra màn hình tất cả các chữ số trong xâu S .
Gợi Ý :
Giả sử Input (đầu vào ) là xâu S
"Cac em dang hoc Tin hoc lop 10 "
Thì output sẽ là "10"
Đưa ra màn hình tất cả các chữ số trong xâu S .
Gợi Ý :
Giả sử Input (đầu vào ) là xâu S
"Cac em dang hoc Tin hoc lop 10 "
Thì output sẽ là "10"
Quảng cáo
2 câu trả lời 501
program TienPhucKhaiMVietJack;
uses crt;
var S: string;
i: integer;
begin
clrscr;
writeln ('Nhap vao xau S: ');
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;
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55463 -
Đã trả lời bởi chuyên gia
31395 -
Đã trả lời bởi chuyên gia
29941
Gửi báo cáo thành công!
