Thực hiện các thao tác sau
a) nhập Xâu S từ bàn phím
b) đếm xem trong xâu S có bao nhiêu ký tự
c) nhật ký tự từ bàn phím kiểm tra xem ký tự vừa nhập xuất hiện bao nhiêu lần trong xâu S
Giúp mình với nhé ????????????
Thực hiện các thao tác sau
a) nhập Xâu S từ bàn phím
b) đếm xem trong xâu S có bao nhiêu ký tự
c) nhật ký tự từ bàn phím kiểm tra xem ký tự vừa nhập xuất hiện bao nhiêu lần trong xâu S
Giúp mình với nhé ????????????
program oken;
uses crt;
var s: string;
i,dem: byte;
chr: char;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
for i:=1 to length(s) do
if (s[i] in [‘a’..’z’]) then
dem:=dem+1;
writeln(‘So ky tu co trong xau: ‘,dem);
write(‘Nhap 1 ky tu: ‘); readln(chr);
dem:=0;
for i:=1 to length(s) do
if (s[i]=chr) then
dem:=dem+1;
writeln(‘So lan ky tu ‘,chr,’ co trong xau: ‘,dem);
readln;
end.
program vandat;
uses crt;
var s : string; i,d : integer; k : char;
begin d:=0;
write(‘Nhap xau S:’); readln(s);
writeln(‘Do dai xau S la :’, length(s));
write(‘Nhap ki tu :’); readln(k);
for i:=1 to length(s) do if s[i]=k then d:=d+1;
write(‘So lan xuat hien cua ki tu do trong la :’,d);
readln
end.