Viết chương trình nhập xâu A từ bàn phím có độ dài 150 kí tự đếm xem xâu vừa nhập có bao nhiêu kí tự số

0 bình luận về “Viết chương trình nhập xâu A từ bàn phím có độ dài 150 kí tự đếm xem xâu vừa nhập có bao nhiêu kí tự số”

1. program oken;
   uses crt;
   var s: string;
       i,dem: byte;
   begin
       clrscr;
       write(‘Nhap xau: ‘); readln(s);
       dem:=0;
       for i:=1 to length(s) do
           if (s[i] in [‘0’..’9′] )then
               dem:=dem+1;
       writeln(‘So ki tu so trong xau: ‘,dem);
       readln;
   end.

   Bình luận

2. program Min;
   var s:string;
   i,dem:integer;
   begin
    write(‘Nhap xau: ‘); readln(s);
    for i:=1 to length(s) do
    S[i]:=upcase(S[i]);
    for i:=1 to length(s) do
    if copy(s,i,3)=’HOA’ then inc(dem);
     writeln(‘So tu “hoa” xuat hien trong xau la: ‘,dem);
    readln
   end.

   Bình luận