Question

Nhập vào 1 xâu kiểm tra xem xâu đó có số hay không và đếm xem trong xâu đó có bao nhiêu số

Answer 1

uses crt;

var s:string;

dem,i:longint;

begin

readln(s);

dem:=0;

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then dem:=dem+1;

if dem=0 then write('xau ko co so')

else write('xau do co ',dem,' so');

readln

end.

Answer 2

Lời giải :

program hotrotinhoc ;

const A = ' tinhhoc.inp ' ;

B = ' tinhoc.out ' ;

var F : text ;

s : string ;

i,dem : integer ;

begin

assign(F,A);

reset(F);

read(F,s);

close(F);

assign(F,B);

rewrite(F);

dem:=0;

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then write(F,'Trong xau co ki tu so') else write(F,'Trong xau khong co ki tu so');

if s[i] in ['0'..'9'] then dem:=dem+1;

write(F,'trong xau co ',dem,' ki tu so');

end.