ĐONG NƯỚC

Xem dạng PDF

Gửi bài giải

Điểm: 0,50 (OI)
Giới hạn thời gian: 1.0s
Giới hạn bộ nhớ: 256M
Input: stdin
Output: stdout

Nguồn bài:
Tuyển tập đề thi HSG
Dạng bài
Ngôn ngữ cho phép
C, C++, Java, Kotlin, Pascal, PyPy, Python, Scratch


Bình luận

Hãy đọc nội quy trước khi bình luận.



  • 0
    Lam2012  đã bình luận lúc 2, Tháng 10, 2025, 11:07
    var n,d:qword;
    begin
     readln(n);
     d:=0;
     while n>0 do
      begin
       if n>4 then begin d:=d+(n div 5); n:=n-(n div 5)*5; end else
       if (n<5) and (n>2) then begin d:=d+(n div 3); n:=n-(n div 3)*3; end else
       if (n<3) and (n>1) then begin d:=d+(n div 2); n:=n-(n div 2)*2; end else
       begin n:=0; inc(d); end;
      end;
     write(d);
     readln;
    end.