Nhập một sâu từ bàn phím. Thực hiện yêu cầu sau: nhập sâu gồm các chữ cái thường trong sâu vừa nhập.
2 câu trả lời
uses crt;
var s:string;
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]='a' then inc(dem);
writeln('so chu cai thuong trong xau la: ',dem);
readln;
end.
uses crt;
var S : string; i : byte;
begin
clrscr;
write('Nhap xau ki tu : '); readln(S);
write('Cac chu cai thuong : ');
for i := 1 to length(S) do
if S[i] in ['a' .. 'z'] then write(S[i]);
readln
end.
