viết chương trình nhập vào xâu s và đưa ra màn hình xâu trên có bn số

Question

maingocquynhnhu · Answer

program dem_so;

uses crt;

var s:string;

i,d:byte;

begin

clrscr;

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

d:=0;

for i:=1 to length(s) do

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

write(‘Xau tren co ‘,d,’ chu so’);

readln;

end.

dongocdiem · Answer

Program sss;

uses crt;

begin

clrscr;

Var s:string;

d,i:integer;

Begin

Writeln(‘Nhap xau S’); readln(s);

For i:=1 to length(S) do if S[i] in [‘0’..’9′] then inc(d);

Writeln(‘xau s có: ‘,d,’ so’);

readln;

end.