Bui Tuyet Mai
Hỏi từ APP VIETJACK
viết chương trình nhập một xâu kí tự từ bàn phím, đếm số kí tự là chữ số có trong xâu rồi hiển thị kết quả lên màn hình
Quảng cáo
1 câu trả lời 308
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘a’<=a[i]) and (a[i]<=’z’)
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Bui Tuyet Mai
· 3 năm trước
cảm ơn b nha
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86402
Gửi báo cáo thành công!
