Viết chương trình in ra màn hình các chữ cái trong xâu, Nếu không có in ra dòng thông báo "khong co ky tu nao la chu cai trong xau"
1 câu trả lời
program xau;
uses crt;
var s:String;
kt: Boolean;
i: Byte;
th: set of char;
begin
clrscr;
th:=['1','2','3','4','5','6','7','8','9','0'];
write('nhap xau: '); readln(s);
kt:=false;
for i:=1 to length(s) do if s[i] in th then
begin
write(s[i],' ');
kt:=true;
end;
if kt=false then write('khong co ky tu nao la chu cai trong xau');
readln;
end.
