viết chương trình nhập từbàn phím xâu kí tự có độ dài không quá 20 ký tự cả chữ và số .Duawd ra màn hình số lượng các chữ số từ 3 đến 7 có trong xâu..

0 bình luận về “viết chương trình nhập từbàn phím xâu kí tự có độ dài không quá 20 ký tự cả chữ và số .Duawd ra màn hình số lượng các chữ số từ 3 đến 7 có trong xâu..”

1. program Min;
   uses crt;
   const so=[‘3′,’4′,’5′,’6′,’7’];
   var s:string;
       i,dem:integer;
   begin
      clrscr;
      repeat 
      begin
         writeln(‘Nhap xau: ‘);
         readln(s);
      end;
      until length(s)<=20;
      for i:=1 to length(s) do
      if s[i] in so then inc(dem);
      writeln(‘So luong cac so tu 3 den 7 co trong xau la: ‘,dem);
      readln
   end.
      
    Bạn tham khảo nha, chỗ nào chưa hiểu thì hỏi mình 😀

   Bình luận