Dem ki tu
Chia sẻ bởi Nguyễn Ngọc Nhi |
Ngày 25/04/2019 |
70
Chia sẻ tài liệu: dem ki tu thuộc Tin học 11
Nội dung tài liệu:
var s: string;
i,dem: byte;
ch:char;
begin
dem:=0;
write(`Nhap vao mot xau: `); readln(s);
for i:=1 to length(s) do
for ch:= `a` to `z` do
if s[i]=ch then dem:=dem + 1;
write (`So ki tu trong xau la: `, dem);
readln
end.
i,dem: byte;
ch:char;
begin
dem:=0;
write(`Nhap vao mot xau: `); readln(s);
for i:=1 to length(s) do
for ch:= `a` to `z` do
if s[i]=ch then dem:=dem + 1;
write (`So ki tu trong xau la: `, dem);
readln
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Ngọc Nhi
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)