OPTADS360
AANETWORK
AMBIENT
YOMEDIA
Banner-Video
IN_IMAGE

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.

  bởi Nhi Nhi 30/11/2021
ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • 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
 
 

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

NONE
OFF

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