Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Cảnh Hùng

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Đỗ Ngọc Trinh
20 tháng 8 2019 lúc 7:45

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’) then

  Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.


Các câu hỏi tương tự
Nguyễn Nhật Lệ
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Trung Nguyễn
Xem chi tiết
Lê Phú
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đức Kiên
Xem chi tiết
Lê Đình Quý
Xem chi tiết
Phạm Hào
Xem chi tiết