PROGRAM CT74;
USES crt;
VAR s: STRING;
i,n: BYTE;
BEGIN
clrscr;
Write('Nhap xau: '); Readln(s);
n:=1;
FOR i:=1 TO Length(s) DO
IF ('0' <= s[i]) AND (s[i] <= '9') THEN n:=N+1;
Write('So chu so xuat hien trong xau: ',n);
Readln
END.
Download: http://www.mediafire.com/?k1qu6dk5tel1rz0
USES crt;
VAR s: STRING;
i,n: BYTE;
BEGIN
clrscr;
Write('Nhap xau: '); Readln(s);
n:=1;
FOR i:=1 TO Length(s) DO
IF ('0' <= s[i]) AND (s[i] <= '9') THEN n:=N+1;
Write('So chu so xuat hien trong xau: ',n);
Readln
END.
Download: http://www.mediafire.com/?k1qu6dk5tel1rz0