Viết chương trình nhập vào một xâu và cho biết xâu đó gó bao nhiêu kí tự là chữ số?

Question

maianhtu · Answer

program _dem_chu_so;

uses crt;

var s:string;

i,d:byte;

begin

clrscr;

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

d:=0;

for i:=1 to n do

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

write(‘Co ‘,d,’ ki tu la chu so’);

readln;

end.

maingocquynhnhu · Answer

program bt;

uses crt;

var a: string;

i, x, so: byte;

begin

clrscr;

write(‘Nhap xau a:’); readln(a);

x:= length(a);

for i := 1 to x do if a[i] in [‘0’..’9′] then so := so + 1;

writeln(‘Co’, so ,’ki tu la so trong xau’);

readln

end.

Xin câu trả lời hay nhất ạ :3

Trả lời