Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Flashsale Mua Sắm Trực Tuyến - Mua Nhanh Kẻo Hết

Cộng đồng công nghệ mới của Vn-Zoom

Cài đặt thảo luận về Windows 10 ở Vn-Zoom
Khuyến Mại FlashSale Cấm Up Ảnh đóng dấu forum khác

Vn-Zoom phiên bản beta

Cách Mạng Mua Sắm 10/10



kết quả từ 1 tới 4 trên 4
Vn-Zoom Việt Nam Phiên bản Beta

  1. #1
    gatriet's Avatar
    gatriet vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Bài
    7
    Cảm ơn
    3
    Điểm: 1/1 bài viết

    Default Viết chương trình Pascal tìm số lớn nhất, nhỏ nhất và số ở giữa ( cùng 1 CT) trong ba số. AE có cao kiến thì giải giúp em nhé !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    BT Kt nên ae giải gấp ngày mai em nộp rồi. Chỉ được dùng If - then vời Else thôi nhé
    Thay đổi nội dung bởi gatriet; 11-09-2012 lúc 18:37.





  2. Săn Flash theo giờ nhanh còn kịp*** Cộng đồng công nghệ mới của Vn-Zoom***Deal bất ngờ mỗi ngày
  3. #2
    huuminh5566's Avatar
    huuminh5566 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Sep 2009
    Bài
    64
    Cảm ơn
    34
    Điểm
    12/12 bài viết

    Default

    cho ban cái thuật toán để tìm nè
    nếu số a chia hết cho 2 thì là số chẵn ngược lại là lẻ sao đó in ra màn hình


    Nhớ thank nha bà con !
    Backtrack 5

  4. #3
    gatriet's Avatar
    gatriet vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Apr 2009
    Bài
    7
    Cảm ơn
    3
    Điểm: 1/1 bài viết

    Default

    Tìm Min Max với số ở giữa trong 3 số mà. Spam à



  5. #4
    pha96's Avatar
    pha96 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2010
    Bài
    445
    Cảm ơn
    240
    Điểm
    149/112 bài viết

    Default

    Code:
    begin
      readln(x,y,z);
      if (x>y) and (y>z) then writeln(x,' ',y,' ',z);
      if (x>z) and (z>y) then writeln(x,' ',z,' ',y);
      if (y>x) and (x>z) then writeln(y,' ',x,' ',z);
      if (y>z) and (z>x) then writeln(y,' ',z,' ',x);
      if (z>x) and (x>y) then writeln(z,' ',x,' ',y);
      if (z>y) and (y>x) then writeln(z,' ',y,' ',x);
    end.
    bạn ở trên đọc sai đề rồi .


    http://codevn.org Diễn đàn dành cho các Coder

    Bạn cần download chương trình Flash Player mới có thể xem được file flash này.

 

 
Deal hot 2 tiếng mỗi ngàyTop Khuyến Mại Hàng Ngày *** Giá Sốc Trong Ngày


Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •