Quảng cáo
1 câu trả lời 133
Program Xoa_chu_so;
Uses crt;
Var i: integer;
S: string;
Begin
Clrscr;
Write(‘Nhap xau S: ‘); Readln(S);
For i:=length(S) downto 1 do
If S[i] in [‘0’..’9’] then
Delete(S,i,1);
Writeln(‘Xau sau khi xoa: ‘,S);
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
149335 -
Đã trả lời bởi chuyên gia
99754 -
Đã trả lời bởi chuyên gia
97361 -
Đã trả lời bởi chuyên gia
80031 -
Đã trả lời bởi chuyên gia
72874 -
Đã trả lời bởi chuyên gia
55958 -
Đã trả lời bởi chuyên gia
55333
Gửi báo cáo thành công!
