Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:

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.
Hot: Danh sách các trường đã công bố điểm chuẩn Đại học 2025 (mới nhất) (2025). Xem ngay
- Sổ tay Vật lí 12 (chương trình mới) ( 18.000₫ )
- Sổ tay Giáo dục Kinh tế & Pháp luật 12 (chương trình mới) ( 18.000₫ )
- Sổ tay lớp 12 các môn Toán, Lí, Hóa, Văn, Sử, Địa, KTPL (chương trình mới) ( 36.000₫ )
- Bộ đề thi tốt nghiệp 2025 các môn Toán, Lí, Hóa, Văn, Anh, Sinh, Sử, Địa, KTPL (có đáp án chi tiết) ( 36.000₫ )
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.
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.
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.
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.
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.