Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số

0 bình luận về “Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số”

1. Program Hotboy ;

   Uses crt;

   Var xau: string

   i,kituso: integer;

   Begin

   Kituso:=0;

   Write(‘nhap xau’); readln(xau);

    For i:=1 to length(xau) do

     If (xau[i] in [‘0’..’9′]) then inc(kituso);

    Writeln(‘so ki tu so trong xau la’,kituso);

   Readln

   End.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,n:integer;

         s:string;

   begin

   clrscr;

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

   n:=0;

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

   writeln(‘Xau tren co ‘,n,’ ki tu so’);

   readln;

   end.

   Bình luận