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.

0 bình luận về “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. 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.

   Bình luận