Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số. Em cảm ơn ạ

0 bình luận về “Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số. Em cảm ơn ạ”

1. var s:string;

         i,d:integer;

   begin

   write(‘Nhap xau: ‘); readln(s);

   for i:=1 to length(s) do

   if s[i] in [‘0’..’9′] then inc(d);

   write(‘Co ‘,d,’ ky tu chu so trong xau’);

   readln;

   end.

   Bình luận

2. program nguyenduyhaibang;

   var s: string; chuso,i: integer;

   begin

   write(‘Nhap xau: ‘);

   readln(s);

   chuso:=0;

   for i:=1 to length(s) do 

   begin

   if (S[i] in [‘0’..’9′]) then chuso:=chuso+1;

   end;

   write(‘Xau co ‘,chuso,’ chuso’);

   readln;

   end.

   Bình luận