viết chương trình nhập từ bàn phím một xâu bất kì có độ dài không quá 50 kí tự. hãy in các kí tự trong câu là chữ thường (a,b,c...)
2 câu trả lời
uses crt;
var i:longint; s:string[50];
begin
clrscr;
write('s=');readln(s);
for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]);
readln
end.
uses crt;
var st:string[50];
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['a'..'z'] then write(st[i]:4);
readln;
end.
