viết chương trình nhặp từ bàn phím một xâu kí tự ko dài 100 kí tự và hãy in ra màn hình các chữ số trong xâu đó
2 câu trả lời
var s: string;
i: byte;
Begin
Write('nhap xau: '); readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then write(s[i], ' ');
Readln
End.
uses crt;
var s:string; i:byte;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
for i:=1 to length(s) Do
if s[i] in ['1'..'9'] then write(s[i]);
readln
end.
