Câu hỏi:

13/07/2024 1,920

Em hãy viết chương trình xóa hết kí tự trùng nhau trong xâu

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Lời giải:

Progrom Xoa_ki_tu_ trung;

Uses crt,

Var i,j,n:integer;

S:string;

Begin

Clrscr;

Write('Nhap xau S:'); Reqdin(S);

N:=length(S);

l:=1

While i<n do

begin

if S[i]=S[j] then,

begin

if S[i]=SD[j] then

begin

Delete(S,j,1);

N=n-1;

End

 

Else j:=j+1:

End;

l:=i+1;

End;

Writeln('Xau S moi:', S);

End.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP