uses crt;
var s: string;
i,d: byte;
begin
clrscr;
write ('nhap xau s: '); readln (s);
for i:=1 to length(s) do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then d:=d+1;
writeln ('do dai cua xau s: ',length(s));
writeln ('so lan xuat hien cua chu cai trong xau: ',d);
readln;
end.
program bai_giai;
var s:string;
i,j,d:byte;
tg:char;
write('Nhap xau: '); readln(s);
writeln('Chieu dai cua xau la: ',length(s));
d:=0;
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then d:=d+1;
write('Co ',d,' chu cai xuat hien');
Mọi người giúp em với ạ, em đang cần gấp lắm
Vẽ trái tym or đậu mầm hoặc là anime nha các pác Nl: Táu đang vui
Tìm số lớn nhất có ba chữ số mà tổng các chữ số của số đó bằng 10
hãy đỗi các đơn vị sau tù độ c sang độ f: 35 độ c, 42độ c, 0 độ c, - 5 độ c: -25 độ c
Để đặt lề và hương giấy cho trang in ta thực hiện như thế nào
Tìm phép liệt kê và nêu tác dụng của nó trong các văn bản “Ca Huế trên sông Hương”, “Sống chết mặc bay”)
Sử dụng công cụ lọc trong trường hợp nào ?
Viết đoạn văn suy nghĩ về tinh thần lạc quan trong cuộc sống (văn nghị luận) dẫn chứng từ văn bản ngắm trăng, (((((các hành động thể hiện tinh thần lạc quan)) ko cop mạng
Vẽ trái tym đi các pác Nl: Cuối cùng sau bao nhiêu nỗ lực thì táu đã đc 6 môn trên 8 điểm :>
viết 1 đoạn văn nói về môi trường bằng tiếng anh [tóm tắt đủ ý trong tầm 5-7 câu thôi nhá ] ____Cảm ơn trước ^_^
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
