Bài tập xâu kí tự 1

Thu Jun 27, 2024 10:26 am

Viết chương trình tính tổng các kí tự số có trong xâu kí tự . Nếu không có kí tự số trong xâu , yêu cầu nhập lại.
GIẢI:

Code:: uses crt; Var st:string; i,a,b,s,n:longint; begin clrscr; Repeat write('Nhap xau '); readln(st); for i:=1 to length(st) do if st[i] in ['0'..'9'] then begin val (st[i],a,b); s:=s+a; Inc(n); end; If n>0 then write('Tong cac so la :',s) else writeln('Khong co so trong xau, nhap lai'); until n>0; readln; end.