Viết chương trình nhập từ bàn phím xâu a( bảo gồmcảchữcáivàchữsố).Đếmsốkýtự chữsốcótrong xâu. Đưa kết quả ra màn hình.
1 câu trả lời
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.
