Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
212
144
hc tốt
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
35
0
Mình nghĩ là ko phải như này