một người đựng n lít nước vào chai 5 lít,3 lít,1 lít,sao cho số chai là ít nhất viết chương trình tìm số chai mỗi loại với n được nhập từ bàn phím turbo pascal nha
!!!
var n,dem:longint; begin clrscr; readln(n); dem:=0; while n>=5 do begin if n=6 then begin dem:=dem+2; n:=0; end; if n=12 then begin dem:=dem+4; n:=0; end; if n=9 then begin dem:=dem+3; n:=0; end; if n>=5 then begin dem:=dem+1; n:=n-5; end; end; if n=3 then dem:=dem+1; write(dem); readln; end.