Nhập vào một xâu ký tự hãy đếm các ký tự số trong câu
2 câu trả lời
program TIn_hoc;
uses crt;
var i,k:Integer;
s : string;
begin
clrscr;
writeln('Nhap xau:');readln(s);
k:=0;
for i:= 1 to length(s) do if s[i] in ['0'..'9'] then inc(k);
writeln('Trong xau vua nhap co ',k,' ki tu so');
readln;
end.
var s: string;
i,cs: byte;
Begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then cs:=cs+1;
write('So ki tu so: ',cs);
readln;
end.
Câu hỏi trong lớp
Xem thêm
