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

[T_P_]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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]

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

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 .

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.