Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình
2 câu trả lời
program khac_chu;
uses crt;
var s,st:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
st:='';
for i:=1 to length(s) do
if not(s[i] in ['a'..'z']) and not(s[i] in ['A'..'Z']) then st:=st+s[i];
write('Xau moi la: ',s2);
readln;
end.
program Min;
uses crt;
var s1,s2:string;
i:integer;
begin
clrscr;
write('Nhap xau: '); readln(s1);
s2:='';
for i:=1 to length(s1) do
if ('a'<=s1[i]) and ('z'>=s1[i]) then s2:=s2+s1[i];
writeln;
write(s2);
readln
end.
