Nhập vào một xâu ký tự hãy đếm các ký tự số trong câu

0 bình luận về “Nhập vào một xâu ký tự hãy đếm các ký tự số trong câu”

1. program TIn_hoc;

   uses crt;

   var i,k:Integer;

        s : string;

   begin

   clrscr;

   writeln(‘Nhap xau:’);readln(s);

   k:=0;

   for i:= 1 to length(s) do if s[i] in [‘0’..’9′] then inc(k);

   writeln(‘Trong xau vua nhap co ‘,k,’ ki tu so’);

   readln;

   end.

   Bình luận

2. var s: string;

       i,cs: byte;

   Begin

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

      for i:=1 to length(s) do

         if s[i] in [‘0’..’9′] then cs:=cs+1;

      write(‘So ki tu so: ‘,cs);

      readln;

   end.

   Bình luận