YOMEDIA
NONE

Viết chương trình nhập 1 xâu kí tự.

a) Xét xem trong xâu có K kí tự kề nhau mà như nhau hay không?

b) Hãy xóa đi kí tự kề nhau mà như nhau, chỉ giữ lại một.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Tuấn Huy

    uses crt;

    var ch:string[100];

       i,k,d,d1,n:integer;

    (*****)

    function xoa:boolean;

    var i:integer;

    begin

        xoa:=false;

        for i:=1 to length(ch)-1 do

        if ch[i]=ch[i+1] then

        begin

             delete(ch,i,1);

             xoa:=true;

             exit

        end;

    end;

    (*****)

    begin

    clrscr;

     

          write('Nhap chuoi :');readln(ch);

          write('Nhap ki tu K:');readln(k);

          n:=length(ch);

          d:=0;d1:=0;

          for i:=1 to n-1 do

          begin

               if ch[i]=ch[i+1] then inc(d1)

               else d1:=0;

               if d1+1>=k then inc(d);

          end;

          if d>0 then writeln('Co ',k,' ki tu nhu nhau')

          else writeln('Khong co ',k,' ki tu nhu nhau');

          while xoa do;

          write('In lai xau sau khi xoa:');

          writeln(ch);

    readln;

    end.

      bởi Tuấn Huy 30/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON