uses crt;
var s:string;
a,b,c,i:longint;
begin
clrscr;
readln(s);
for i:-=1 to length(s) do
if s[i] in ['A'..'Z'] then a:=a+1;
if s[i] in ['a'..'z'] then b:=b+1;
if s[i]>'1' and S[i]<'9' then c:=c+1;
end;
write('co',a,'so ky tu hoa');
write('co ',b,'ky tu thuong');
write('co ',c,'ky tu so);
readln
end.
bạn tham khảo nha
chúc bạn học tốt 5 sao CLTHN
@huyhoang07
Uses crt;
var s:string;i,j:byte;
BEGIN
Write('Nhap s: ');readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then j:=j+1;
writeln('So ky tu chu so la: ',j);
END.
diện tích toàn phần của hình lập phương có cạnh 1,5dm là
giúp mình với ạ, mai mình nộp rồi
Tính đạo hàm của các hàm số sau
Giúp em làm với. Em hãy nêu suy nghĩ về quan điểm sống " số phận do con người nắm giữ"
Viết đoạn là về trách nhiệm của giới trẻ đối đối vs đất nc
Em hãy nên về cuộc khởi nghĩa Hai Bà Trưng gồm( nguyên nhân, diễn biến, kết quả, ý nghĩa)?
Trình bày đặc điểm cơ quan sinh dưỡng và cơ quan sinh sản cây rêu
vai trò của thanh niên học sinh trong sự nghiệp công nghiệp hóa hiện đại hóa đất nước
Lm hộ mình bài 2 nhé Ai nhanh vote 5 sao
Vẽ lại ảnh dưới buff line, màu.
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
