Tách số có trong xâu
Chia sẻ bởi Nguyễn Vũ Tạo |
Ngày 16/10/2018 |
115
Chia sẻ tài liệu: Tách số có trong xâu thuộc Tin học 9
Nội dung tài liệu:
program tach_so_trong_xau;
var s:string;
i,n,kt,t:longint;
begin
write(`nhap s=`); readln(s);
for i:=1 to length(s)+1 do
if s[i] in [`0`..`9`] then
begin
val(s[i],n,kt);
t:=t*10+n;
end
else if (t>0) or (s[i-1]=`0`) then
begin
write(t,`, `);
t:=0;
end;
readln;
end.
var s:string;
i,n,kt,t:longint;
begin
write(`nhap s=`); readln(s);
for i:=1 to length(s)+1 do
if s[i] in [`0`..`9`] then
begin
val(s[i],n,kt);
t:=t*10+n;
end
else if (t>0) or (s[i-1]=`0`) then
begin
write(t,`, `);
t:=0;
end;
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Vũ Tạo
Dung lượng: 25,50KB|
Lượt tài: 0
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)