Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số.
Em cảm ơn ạ
Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số. Em cảm ơn ạ
By Hadley
By Hadley
Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số.
Em cảm ơn ạ
var s:string;
i,d:integer;
begin
write(‘Nhap xau: ‘); readln(s);
for i:=1 to length(s) do
if s[i] in [‘0’..’9′] then inc(d);
write(‘Co ‘,d,’ ky tu chu so trong xau’);
readln;
end.
program nguyenduyhaibang;
var s: string; chuso,i: integer;
begin
write(‘Nhap xau: ‘);
readln(s);
chuso:=0;
for i:=1 to length(s) do
begin
if (S[i] in [‘0’..’9′]) then chuso:=chuso+1;
end;
write(‘Xau co ‘,chuso,’ chuso’);
readln;
end.