Thông tin

Tài nguyên dạy học

Các ý kiến mới nhất

Hỗ trợ trực tuyến

Điều tra ý kiến

Bạn thấy trang này như thế nào?
Đẹp
Đơn điệu
Bình thường
Ý kiến khác

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên

    • Ảnh ngẫu nhiên

    F_PEN.jpg CERT7.jpg

    Thành viên trực tuyến

    1 khách và 0 thành viên

    Chào mừng quý vị đến với website của ...

    Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình.
    Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
    Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
    Gốc > Bài viết > Chia sẻ kinh nghiệm >

    SẮP XẾP CHUỖI

    var st:string;
    i,j: integer;a:char;
    begin
    write('nhap chuoi:');readln(st);
    for i:=1 to length(st) do
    for j:=i+1 to length(st) do
    if st[i]>st[j] then begin a:=st[i]; st[i]:=st[j];st[j]:=a; end;
    for i:=1 to length(st) do write(st[i]);
    readln
    end.
    Nhắn tin cho tác giả
    Trần Văn Toàn @ 15:37 11/05/2018
    Số lượt xem: 21
    Số lượt thích: 0 người
     
    Gửi ý kiến