Question

Cho tệp ' DL.INP ' chứa 1 xâu kí tự S, hãy đếm số chữ số có trong xâu S và ghi kết quả vào tệp ' KQ.OUT '

Answer 1

Program HOC24;

const fi='DL.INP'

fo='DL.OUT'

var s: string;

d,i: byte;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to length(s) do if s[i] in ['0'..'9'] then inc(d);

write(f,d);

close(f);

end;

begin

ip;

out;

end.

Answer 2

const fi='dl.inp'

fo='kq.out'

var f1,f2:text;

s:string;

d,i,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,s);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.