kết quả từ 1 tới 10 trên 10

cho e xin code Pascal bài này, mai e học r!!!

  1. #1
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    25
    Quick reply to this message Trả lời       


  2. #2
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 392819
    Bài gửi
    250

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Bạn search Google đi
    Hãy Thanks nếu bài viết có ích cho bạn nhé!
    SHARE ACC VIP ZING MP3 VÀ NCT
    NHẬN HỖ TRỢ MÁY TÍNH QUA TEAMVIEWER



  3. Đã cảm ơn I love Windows 10:


  4. #3
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    25

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Bạn search Google đi
    Search ko xong, bài nào cx lỗi cả

    - - - Updated - - -

    Có ai giỏi jup mik qua teamview lun

  5. #4
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    25

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    nhanh di moi nguoi

  6. #5
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 392819
    Bài gửi
    250

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    thử code anh mới tìm dc nhé
    Mã:
    begin
    for i:=1 to n do
    if a<a[i+1] then b:=1 
    else b=0;
    
    for i:=1 to n do
    begin
    kt:=1;
    for j:=i to n do
    if (kt=1) and (b[j]=1) then c:=c+1
    else kt:=0;
    end; 
    max:=c[1];
    for i:=1 to n do
    if max<c then
    begin 
    max:=c;
    cs:=i;
    end;
    writeln('day con dai nhat là')
    for i:=cs to cs+max do write(a:5

  7. Đã cảm ơn I love Windows 10:


  8. #6
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    25

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Nhớ thanks các bài viết của mk nhé
    thử code anh mới tìm dc nhé
    begin
    for i:=1 to n do
    if a<a[i+1] then b:=1
    else b=0;

    for i:=1 to n do
    begin
    kt:=1;
    for j:=i to n do
    if (kt=1) and (b[j]=1) then c:=c+1
    else kt:=0;
    end;
    max:=c[1];
    for i:=1 to n do
    if max<c then
    begin
    max:=c;
    cs:=i;
    end;
    writeln('day con dai nhat là')
    for i:=cs to cs+max do write(a:5
    ae mik tự nhiên thân thiết nhỉ

  9. #7
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 392819
    Bài gửi
    250

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi sonhoctin Xem bài viết
    ae mik tự nhiên thân thiết nhỉ
    Ờ. thân thiết quasv
    Nhớ lên nói với cô là e gian lận nha v

  10. Đã cảm ơn I love Windows 10:


  11. #8
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    25

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Ờ. thân thiết quasv
    Nhớ lên nói với cô là e gian lận nha v
    trung thực đấy!

  12. #9
    Ðến Từ
    Hà Nội
    Thành Viên Thứ: 392819
    Bài gửi
    250

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi sonhoctin Xem bài viết
    trung thực đấy!
    Bít rồi thưa em gái
    khi nào mk hỏi j nhớ giúp nha

  13. Đã cảm ơn I love Windows 10:


  14. #10
    Ðến Từ
    Cần Thơ
    Thành Viên Thứ: 300468
    Giới tính: Nam
    Bài gửi
    1.679

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Không làm loãn topic quá trớn nhé !
    Click >