Hãy viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình các thông số sau:
a) Cho biết độ dài của xâu vừa nhập.
b) Xâu thu được từ xâu đã nhập thỏa mãn: chỉ có chữ in hoa và chữ số. Nếu không có dữ liệu ghi ra màn hình dòng chữ: XAU RONG
Giúp mình với ạ
program bai_giai;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
writeln(‘a. Do dai cua xau la: ‘,length(s));
st:=”;
for i:=1 to length(s) do
if (s[i] in [‘A’..’Z’]) or (s[i] in [‘0’..’9′]) then st:=st+s[i];
if length(st)=0 then write(‘b. XAU RONG’) else write(‘b. ‘,s);
readln;
end.
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
Write(‘nhap xau S: ‘); readln(s);
Writeln(‘do dai cua xau la: ‘,length(s));
st:=”;
For i:=1 to length(s) do
If (s[i] in [‘A’..’Z’]) or (s[i] in [‘0’..’9′]) then st:=st+s[i];
If length(st)=0 then write(‘xau rong’)
else write(s);
Readln;
End.