viết ct kiểm tra việc nhập 1 kí tự và 1 sâu kí tự in hoa(nếu ko đúng thì nhập lại) sau đó cho biết số lần xuất hiện của kí tự trong sâu kí tự
Vd1: nhập kí tự N
Nhập sau NHA TRANG
Kết quả có 2 kí tự N trong câu
Vd2: nhập kí tự a
Kết quả hãy nhập lại bằng chữ hoa
uses crt;
var s:char;
st:string;
dem:byte;
begin
clrscr;
repeat
write(‘Nhap ki tu:’);readln(s);
until s=upcase(s);
repeat
write(‘Nhap xau:’);readln(st);
until st=upcase(st);
while pos(s,st)<>0 do
begin
inc(dem);
delete(st,pos(s,st),1);
end;
writeln(‘Co ‘,dem,’ ki tu ‘,s,’ trong xau’);
readln;
end.
uses crt;
var d:longint; s,c:string;
begin
clrscr;
repeat
write(‘Nhap ki tu: ‘);readln(c);
until c=upcase(c);
repeat
write(‘Nhap xau: ‘);readln(s);
until s=upcase(s);
while pos(c,s)<>0 do
begin
inc(d);
delete(s,pos(c,s),1);
end;
writeln(‘Co ‘,d,’ ki tu ‘,c,’ trong xau’);
readln;
end.