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 ạ
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.