Quảng cáo
1 câu trả lời 660
3 năm trước
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.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
