Nhập xâu kí tự S + Hãy đếm trong xâu có bao nhiêu kí tự ‘m’ + Thay thế kỉ tự M thành kí tự C

0 bình luận về “Nhập xâu kí tự S + Hãy đếm trong xâu có bao nhiêu kí tự ‘m’ + Thay thế kỉ tự M thành kí tự C”

1. program oken;

   uses crt;

   var s: string; i,dem: byte;

   begin

   clrscr;

   write(‘Nhap xau: ‘); readln(s);

   for i:=1 to length(s) do

   if s[i]=’m’ then

   begin

   dem:=dem+1;

   s[i]:=’C’;

   end;

   writeln(‘So ki tu m trong xau: ‘,dem);

   writeln(‘xau moi: ‘,s);

   readln;

   end.

   Bình luận

2. uses crt;
   var  st : string;
   i,d : integer;
   begin     d:=0;
   write(‘Nhap xau ki tu :’); readln(st);
   for i:=1 to length(st) do if st[i]=’m’ then d:=d+1;
   write(‘Co ‘,d,’ ki tu m’);
   for i:=1 to length(st) do if st[i]=’M’ then st[i]:=’C’;
    write(st);
   readln
   end.

   Bình luận