Viết chương trình nhập vào xâu S bất kì từ bàn phím .in ra màm hình 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 ki tu nao la chu cai trong xau'.
Giải giúp em với ạ đang cần gấp
Em cảm ơn ạ
uses crt; var s:string; i:byte; begin clrscr; write('Nhap xau: '); readln(s); for i:=1 to length(s) do if (s[i]>='A') and (s[i]<='z') then write(s[i]); readln end.
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.