Tin học Chữa chương trình

Thảo luận trong 'Tin học cấp III' bắt đầu bởi T_P_, 8 Tháng mười một 2019.

Lượt xem: 37

  1. T_P_

    T_P_ Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    6
    Nơi ở:
    Đắk Lắk
    Trường học/Cơ quan:
    Thcs Phan Chu Trinh
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    Nhập vào số N In ra số các số dương nhỏ hơn hoặc bằng N và lớn hơn (N - 1)/2 (N ≤ 50). [PASCAL]
    var n:integer;
    begin
    read(n);
    write((n+1)/2);
    end.
    Mình làm sai hoài các bạn chỉ mình lỗi sai với
     
    Trâm Nguyễn Thị Ngọc thích bài này.
  2. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc CTV CLB Âm nhạc Cộng tác viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,296
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Do bạn làm sai yêu cầu của đề bài nên mới vậy.
    Theo mình nghĩ thì đề yêu cầu nhập vào n nguyên và in ra các số nguyên dương <=n và >= (n-1)/2 thì có vẻ hay hơn.
    Nếu để không yêu cầu gì hết thì n có thể là số thực, mà số thực thì có hơi.... khi in ra sẽ nhiều số...Code phía dưới mình làm theo số nguyên nhé, nếu bạn muốn làm theo số thực thì sửa lại phần khai báo, div và vòng for là được :).
    Mã:
    Var
       i,n,a:integer;
    Begin
       Repeat
           Write('nhap vao so nguyen duong nho hon hoac bang 50:');
           Readln(n);
       Until (n>0) and (n<=50);
       a:=(n-1) div 2;
       For i:=a+1 to n do write(i,'  ');
       Readln
    End.
     
    T_P_, Hải Ham HọcThe Minecraft PC thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->