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 !!!
1 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
