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



Giảm Giá Sốc chào 30/04 và hợp tác Vn-Zoom chỉ còn 50.000 VND/Key Trend Micro Internet Security 2017


Flash Sale Đặc Biệt Mùa Lễ

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

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

Tìm Việc - Việc Làm

Mừng Đại Lễ giảm giá đến 2 triệu



kết quả từ 1 tới 4 trên 4
Đặt Galaxy S8 tặng quà 4 củ, Đặt Galaxy S8 tặng quà 4 củdinhquangvinh.com

  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. Mua Galaxy S8 tặng quà 4 củ , Flash sale theo giờ nhanh còn kịp Lễ Hội Flash Sale Cộng đồng công nghệ mới của Vn-Zoom
  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.

 

 
Vn-Zoom Zalo

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
  •