08/05/2023
08/05/2023
08/05/2023
program Min;
uses crt;
var s1,s2:string;
i:integer;
begin
clrscr;
write('Nhap xau: '); readln(s1);
s2:='';
for i:=1 to length(s1) do
if ('a'<=s1[i]) and ('z'>=s1[i]) then s2:=s2+s1[i];
writeln;
write(s2);
readln
end.
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời