Nhập vào 1 xâu. Đưa ra màn hình xâu là các kí tự số
2 câu trả lời
program:Bai_tap_1;
uses crt;
var s:string; i:byte;
begin
clrscr;
write('Nhap s: '); readln(s);
for i:=1 to length(s) do
if (s[i]>='0') and (s[i]<='9') then write(s[i]);
readln
end.
uses crt;
var s:string; i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if (s[i]>='0') and (s[i]<='9') then write(s[i]);
readln
end.
Câu hỏi trong lớp
Xem thêm
