Tin học viết chương trình nhập vào 1 xâu bất kì , xuất ra màn hình số lượng kí tự số trong xâu đã nhập. các bn giúp mình bài này với:( 21/07/2021 By Vivian viết chương trình nhập vào 1 xâu bất kì , xuất ra màn hình số lượng kí tự số trong xâu đã nhập. các bn giúp mình bài này với:(
program xau; uses crt; var s:String; i, d: Byte; th: set of char; begin clrscr; th:=[‘1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’]; write(‘nhap xau: ‘); readln(s); d:=0; for i:=1 to length(s) do if s[i] in th then inc(d); writeln(‘so luong chu so: ‘, d); readln; end. {GM Kiet} Trả lời
uses crt;var s:string;beginclrscr; write(‘Nhap mot xau: ‘);readln(s); writeln(‘So luong ki tu trong xau da nhap: ‘,length(s));readlnend. Trả lời