Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số
Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số
By Allison
By Allison
Viết công thức nhập từ bàn phím một xâu ký tự bất kỳ Hãy cho biết bao nhiêu ký tự chữ số
Program Hotboy ;
Uses crt;
Var xau: string
i,kituso: integer;
Begin
Kituso:=0;
Write(‘nhap xau’); readln(xau);
For i:=1 to length(xau) do
If (xau[i] in [‘0’..’9′]) then inc(kituso);
Writeln(‘so ki tu so trong xau la’,kituso);
Readln
End.
program Tin_hoc;
uses crt;
var i,n:integer;
s:string;
begin
clrscr;
writeln(‘Nhap xau:’);readln(s);
n:=0;
for i:= 1 to length(s) do if s[i] in [‘0’..’9′] then inc(n);
writeln(‘Xau tren co ‘,n,’ ki tu so’);
readln;
end.