Viết trương trình nhập vào xâu S bất kỳ từ bàn phím. In ra màn hình các chữ cái có trong xâu, nếu không có thì in ra màn hình dòng thông báo ‘khong co ky tu la chu cai co trong xau’.
Viết trương trình nhập vào xâu S bất kỳ từ bàn phím. In ra màn hình các chữ cái có trong xâu, nếu không có thì in ra màn hình dòng thông báo ‘khong co ky tu la chu cai co trong xau’.
uses crt;
var s:string;
i:byte;
v:boolean;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
for i:=1 to length(s) do
if (‘A'<=s[i]) and (‘z’>=s[i]) then
begin
write(S[i]);
v:=true;
end;
if v<>true then write(‘Khong co ky tu la chu cai co trong xau’);
readln
end.